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de PROGRAMAS 



1. Podrán participar todos nuestros 
lectores, cualquiera sea su edad. 

2. Los programas podrán ser envia- 
dos en cinta de cassette, debida- 
mente protegidos en su estuche de 
plástico, o en disco de 3 1/2 pulga- 
das. En este último caso se remitirá 
al participante un disco virgen en 
el momento de recibir el programa 
enviado. 

3. Todos los programas deberán lle- 
var la carátula adjunta, ó bien foto- 
copia de la misma. 

4. Cada lector puede enviar tantos 
programas como desee. 

5. No se aceptarán programas ya pu- 
blicados en otros medios o plagia- 
dos. 

6. Los programas deben seguir las 
normas usuales de programación 
estructurada, utilizando líneas 
REM para marcar todas sus partes, 
subrutinas donde sean necesarias, 
etc. 

7. Todos los programas deben in- 
cluir las correspondientes instruc- 
ciones, lista de las variables utitili- 
zadas, aplicaciones posibles de 
programa y todos aquellos comen- 
tarios y anotaciones que el autor 
considere puedan ser de interés 
para su publicación. 

PREMIOS 

8. Los programas serán premiados 
' mensualmente, de modo acorde 

con su calidad, con un premio en 
metálico de 2.000 a 15.000 ptas. 

FALLO Y JURADO 

9. El Departamento de Programa- 
ción de MSX Club de Progr 



hará la selección de aquellos pro- 
gramas de entre los recibidos se- 
gún su calidad y su estructuración. 
10. Los programas seleccionados apa- 
recerán publicados en la revista 
MSX-Club de Programas, en la 
que se publicará, junto con el pro- 
gramaba cantidad con que ha sido 



Remitir a: 



premiado. 

11. Las decisiones del jurado serán 
inapelables. 

12. Los programas no se devolverán 
salvo que así lo requiera el autor. 

13. El plazo de entrega de los progra- 
mas finaliza el 1 de septiembre 
1988. 
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UN POCO DE 
MOVIMIENTO 



El mundo de los MSX nos. tiene acos- 
tumbrados a una vida sosegada, tranqui- 
la. El mundo MSX es un mundo estable, 
sin sobresaltos. Todo ocurre poco a poco, 
sin brusquedades. La campaña de Navi- 
dad de cualquier empresa dedicada a los 
videojuegos se cierra con el plantea- 
miento de retozar mejores juegos para el 
verano. Algo monótono. 
En general este tipo de monotonía es de 
agradecer, ya que nos da una idea de la 
consolidación del estándar en nuestro 
mercado. 

Pero parece que acaba de despertar un 
monstruo de los videojuegos: Argus 
Press. Argus Press, que posee los dere- 
chos de QuickSilva, Mind Games, Bug- 
Byte y Lothorien, fue comprada el pasa- 
do septiembre por Stephen Hall. Hall, 
desde hace un año director de Argus 
Press Software, ha decidido dar una nue- 
va imagen a la compañía. Y parece que 
la cosa va muy en serio. En poco tiempo 
ha dado una serie de pasos, que nos hacen 
confiar en el éxito de esta compañía. 
Pero de eso hablaremos en el próximo 
número. Hemos querido adelantaros 
algo porque tenemos una verdadera ex- 
clusiva. Stephen Hall estuvo en España 
y nos concedió una entrevista exclusiva 
de la que os hablaremos en nuestro pró- 
ximo número. Os aseguramos que sus 
declaraciones, fueron de lo más explosi- 
vas. 

Por lo demás os dejamos ante otro nú- 
mero de nuestra revista. Un número en 
el que encontraréis el mapa de Phantis 
con los cargadores de vidas infinitas para 
sus dos etapas, en el que también encon- 
traréis, por fin, el programa ganador del 
concurso de verano. Un programa que, 
dada su alta calidad, os recomendamos 
teclear. 

En definitiva, es un número más pero, 
como todos, un número muy especial. 

MANHATTAN TRANSFER, S. A. 



año IV - N. Q 39 - Marzo, 1988 
Sale el día 1 de cada mes 
P.V.P. 275 Ptas. (Inc. IVA y sobretasa aérea Canarias). 




Pbantis 



4 



MONITOR AL DIA 

Las novedades más interesantes del 
mundo MSX. 
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LINEA DIRECTA 

Respondemos a las consultas de nues- 
tros lectores. 
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TABLON DE 
ANUNCIOS 

Dos inserciones gratuitas para com- 
prar, vender e intercambiar hard y 
soft. 





1 AEL BASIC 
PASO A PASO 



¿Cómo hacer buenos programas? (3) 

10OVER THE RAILWAY 

[^Programa en BASIC especialmente y 



paralelamente comentado para que lo 

veas claro. Lo repetiremos. 


I / PROGRAMAS 

|¿il4 Dragón (ganador dei 
concurso de verano) 
23 Asterland 
28 Derivadas e integrales 

I I PHANTIS 

j/Mapa y cargadores de vidas infinitas 
" para conseguir finalizar este exube- 
rante juego de DINAMIC 

C L' AFF AIRE 

j J Uno de los más espectaculares juegos 
J ' Dará los MSX de vpiinHa oenprarinn 



O Q VIDEO-POKES 

jQLos pokes de vidas infinitas de los 
J mejores juegos MSX. 
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Monitor al día 



CONFERENCIA 
INTERNACIONAL SOBRE 
AUTOMATIZACION 
DEL MONTAJE 




Organizada por IES, se celebrará en el 
hotel Royal Lanoaster de Londres, la 9. a 
Conferencia Internacional sobre la 
Automatización del Montaje, durante los días 
15, 16 y 17 de marzo de 1988. 

En este simposio internacional intervendrán 
como ponentes destacadas personalidades de 
institutos tecnológicos, universidades y centros 
de desarrollo- de ingeniería de automatización. 
Se abordarán temas tan interesantes como «El 
diseño del producto para su montaje automá- 
tico», «Montaje flexible», «Estrategia y Plani- 
ficación en el Montaje» y «Sistemas Avanzados 
de Manipulación». 

En este evento internacional, y dentro del 
marco de la ponencia «JAPAN Vs EUROPE 
FORUM2, intervendrá Mr. Philip Robson, di- 
rector general adjunto de TAYLOR HITEC, 
Ltd., y director del proyecto FAMOS-EUREKA 
en el Reino Unido. 

TAYLOR HITEC, Ltd, empresa de ingenie- 
ría británica, tiene más de 20 años de experien- 
cia en el diseño y desarrollo de sistemas de alta 
tecnología y robotización en las áreas de fabri- 
cación y montaje flexible, y está asociada en 
España con CENTUNION, Española de Coor- 
dinación Técnica y Financiera, S. A. La Divf- 
sión de Automatización Avanzada y Robótica 
Industrial, de Centunión está, así mismo espe- 
cializada en el diseño y suministro de 
flexibles de producción, control y manipul 
de alta tecnología orientados especialmente 



cia el área de montaje. 
Para mayor 



, dirigirse a: 



CENTUNION 

División Automatización Avanzada y Robótica 

Industrial 

Fuencarral, 123 

28010 MADRID 

Tel.: (91)656 04 15 

Telex: 43941 

Fax: 676 10 57 



DICCIONARIO 
DE ELECTRONICA 

Rudolf F. Graf. 
Traducción: Colectiva 
Revisión: Francisco Javier López Aligué 
Colección: «Diccionarios» y «Ciencia y 
Técnica» 

esulta realmente difícil imaginar que en 
RT los pocos años que tiene de vida la 
JL ^revolución electrónica, hayan aparecido 
alrededor de 25.000 términos nuevos. Sin em- 
bargo, este DICCIONARIO DE ELECTRONI- 
CA tiene esa cantidad de vocablos y además 
incorpora un glosario inglés-español de alrede- 
dor de 250 páginas, imprescindible para quienes 
utilizan documentación en lengua inglesa. 

Una obra como ésta marca el principio del 
fin para los diccionarios habituales, y sería de 
desear que empezaran a aparecer otras simila- 
res en otros campos del saber. 

El texto está ilustrado con más de 600 figuras 
con una óptica de clarificación de los significa- 
dos. Para ello la mayoría de los dibujos han sido 
rehechos y adaptados al nuevo texto, aunque 
respetando la estructura y disposición ori- 
ginal 

El diccionario incorpora ademas tablas de 
acrónimos, símbolos y abreviaturas, así como 
una relación de unidades en el S.I. y es- 
quemas. 

En la redacción se ha tenido en cuenta tanto 
el empleo de un lenguaje normal, sin tecnicis- 
mos supérfluos, como la utilización del argot 
conocido por cualquier especialista. 

Francisco Javier López Aligué es catedrático 
de Electrónica y director del Departamento de 
Electrónica e Ingeniería Electromecánica de la 
Universidad de Extremadura. 



Galardón para Dinamic 



ENTREGA DEL PREMIO 
JOVEN EMPRESA, 1987 



E 



I pasado día 14 de enero, a las 20.00 horas 
y dentro de los actos conmemorativos del 

II Congreso de Júnior Empresa, se cele- 



bró en el restaurante MAYTE COMMODORE 
de Madrid la entrega del PREMIO JOVEN 
EMPRESA 1987. 

Este premio es la primera vez que se convoca 
en España — contando con una gran tradición 
en el exterior — y pretende reconocer el mérito 
de jóvenes empresas con una antigüedad míni- 
ma de 3 años desde su creación y a cuyo frente 
se halle un director general con un máximo de 
edad de 35 años. 

• Dicho premio fue convocado por la Confe- 
deración Española de Júnior Empresa, patroci- 
nado por el Banco Hispano Americano, y el 
jurado — presidido por D. Claudio Boada — 
estaba integrado por importantes personalida- 
des del mundo empresarial y de las finanzas. 

Concurieron a él un total de 14 jóvenes 
empresas y el premio recayó en MICRODIGI- 
TAL SOFT, S. A., más conocida por la marca 
con que comercializa sus productos: DI- 
NAMIC 

MICRODIGITAL SOFT, S. A., se constituyó 
con la idea de proucir y comercializar vídeo- 
juegos para ordenadores domésticos. 

El jurado valoró especialmente las innovacio- 
nes de esta empresa en gestión y tecnología, 
entre las que destacó: la juventud de sus inte- 
grantes, ya que la medía de edad del staff 
directivo es de 22 años; su crecimiento, que en 
el último ejercicio ha superado en volumen de 
ventas el 450 %; y el hecho de haber, sabido 
crear una imagen de líder en su mercado me- 
diante una adecuada estrategia de marketing. 




MUEBLES PARA 
ORDENADORES 



Se ha diseñado en Uran bretaña un sistema 
de muebles de oficinas para ordenadores 
que incorpora unos grandes huecos en el 
interior de los armazones de mesas donde alojar 
modems y transformadores y con los cuales dar 
paso a grandes mazos de cables en torno a las 
oficinas. Los citados huecos tienen también es- 
pacio para conductos a través de los cuales 
proporcionar aire fresco a cada estación o pues- 
to de trabajo, así como proporcionar amplio 
espacio para dar cabida al exceso de longitud 
de los cables. 

El «Primascope» es un sistema flexible dis- 
eñado para oficinas en las que existen grandes 
cantidades de ordenadores y otros equipos elec- 
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trónicos, a fin de dar acomodo seguro a todos 
los cableados y deparar el máximo espacio de 
suelo. Cada puesto o estación de trabajo puede 
alojar tres canales horizontales de cables, mien- 
tras que la longitud excesiva de los cables puede 
ser almacenada también dentro de la misma 
cavidad. Se ofrece una completa accesibilidad a 
través de las superficies de trabajo y de las 
cubiertas de los extremos. El acceso por el suelo 
es amplio, para permitir una fácil instalación o 
extracción de cables y de alambres. 

Los cables transmisores de datos, de energía 
eléctrica y de telecomunicaciones pueden sepa- 



rarse tamo vertical como horizontalmente, a fin 
de impedir interferencias, mientras que el sis- 
tema pueda dar alojamiento a dobleces de cables 
de 200 mm de radio, lo que hace posible la 
colocación en torno a la oficina de enlaces de 
comunicación fibra-ópticos y LAN. 

Los muebles son fáciles de instalar, ampliar, 
trasladar y redisponer y se ofrecen pantallas en 
tres alturas: de 0,75 m, 1,10 m y 1,60 m. Dichas 
pantallas pueden igualmente ser empleadas 
como tableros donde fijar indicadores, diagra- 
mas, etc, pudiendo apoyarse en ellos unidades 
ras por encima de las superficies de 



trabajo, a fin de economizar espacio de suelo. 
Pueden agregarse unidades conectoras o empal- 
madoras cuadradas y triangulares, así como pe- 
destales móviles, para proporcionar adicionales 
superficies de trabajo. Esta gama de muebles 
está acabada en chapa maciza y rebordes, con 
laminados de gris claro, disponiéndose además 
de otras piezas haciendo juego con aquéllas. 

Para más información dirigirse a: 
Project Office Furniture PLC, 
(Contacto C Wood), 

Haverhill, Suffolk, CB9 8QJ, Gran Bretaña. 

^élex: 817371. 




LA NUEVA DROGA 



La aparición de los ordenadores do- 
mésticos como hoy los conocemos 
ha representado un cambio en la 
forma de utilizar el tiempo Libre, espe- 
cialmente entre los más jóvenes. 

Cada vez más jóvenes pasan sus tardes 
y fines de semana sentados frente a una 
pantalla de ordenador. Los unos, matan 
su tiempo con videojuegos, los otros, ge- 
nerando día a día mejores y más com- 
plicados programas. Muchos de estos jó- 
venes informáticos caen en lo que se ha 
dado en denominar «la nueva droga» 

La informática es una disciplina alta- 
mente absorbente. Es normal pasarse 6 
y 7 horas delante de una pantalla sin 
acordarnos siquiera de comer algo. Ante 
esta alarmante exclusividad que parece 
caracterizar a los aficionados a la infor- 
mática se ha levantado una voz de 
alarma. 

¿No tendrá esta «nueva droga» conse- 
cuencias negativas, bien física o psicoló- 
gicamente? 

Se ha demostrado, tras numerosos es- 
tudios, que la permanencia delante de 
pantallas no es tan perjudicial como mu- 
chos pensaban. La constante actividad 
intelectual de los aficionados a la infor- 
mática desarrolla en ellos cotas de inte- 
ligencia superiores a la normal (aunque 
en muchas ocasiones se produzcan des- 
censos en las calificaciones escolares). 

En definida, la «nueva droga» no es 
tan conocida como muchos cruzados pre- 
tendían afirmar. No creemos que sea lo 
ideal pasarse horas y horas delante de 
una pantalla; pero tampoco creemos que 
eliminar esta «droga» sea la solución a 
estos problemas. 

Una de las principales razones alega- 




das por muchos padres para retirar a sus 
hijos del ordenador es la pérdida de vi- 
sión causada por las pantallas. Es inne- 
gable que esto es cierto; pero también es 
muy fácil de evitar (y no precisamente 
apagando el ordenador. 

Pese a lo que mucha gente piensa, nó 
son las radiaciones las causantes de la 
pérdida de visión. Aunque estas radiacio- 
nes existen y son perjudiciales, su efecto 
a medio plazo sobre la visión es mínimo. 
Pueden tener efectos a largo plazo, tras 
muchos años de trabajo ante pantallas; 
pero no por pasarse las vacaciones de 
Navidad pegado al ordenador. 

Sin embargo hay dos aspectos mucho 
más nocivos que la radiación para los ojos 
de los aficionados a la informática. El 
primero de ellos es el cambio constante 
del punto de visión a que obliga el hecho 
de mirar primero al teclado y, acto segui- 
do, a la pantalla. Este enfocar y desen- 
focar continuo obliga a nuestros ojos a un 
gran esfuerzo que puede desembocar en 
vista cansada o en algún otro tipo de 
pérdida de visión. 

El otro punto importante es el contras- 
te existente entre la pantalla y el resto 
de la habitación. Tanto si éste es muy 
elevado, como si es muy pequeño, nuestra 
vista saldrá perjudicada. 

Ambos puntos tienen una fácil solu- 
ción, muy extendida entre los programa- 
dores, que es la utilización de gafas con 
algún tipo de filtro que por una parte 
reducen el contraste excesivo y por la otra 
dificultan la visión del teclado con lo que 
el usuario se acostumbra a no realizar tan 
frecuentes cambios en su mirada. 

Otro punto muy comentado es la po- 
sibilidad de alteraciones psicológicas. 



informática, como tal, no es fuente de 
este tipo de alteraciones; pero es un re- 
fugio frecuente para chicos con un ele- 
vado coeficiente de inteligencia, en cierto 
modo rechazados por algunos de sus 
compañeros y que encuentran en el or- 
denador un compañero ideal 

Evidentemente, si se combina la infor- 
mática con otras aficiones, el riesgo a este 
autorecogimiento desaparece drástica- 
mente. 

En definitiva, y para tranquilizar a- 
nuestros lectores, la informática en sí no 
es, en absoluto perjudicial para nadie. 
Sólo en casos muy extremos, con uso 
continuo del ordenador superior a las 6 
horas diarias, con chicos poco relaciona- 
bles e introvertidos, el ordenador puede 
convertirse en esa «droga» que comen- 
tábamos. 

Pero hay que recordar que la afición a 
la informática no es únicamente negativa, 
sino todo lo contrario. Las ventajas que 
aporta a los jóvenes el uso de esta he- 
rramienta son mucho mayores que las 
desventajas que pueda acarrear. 

Los videojuegos (por definición inúti- 
les y obsesivos) desarrollan enormemen- 
te los reflejos y la capacidad de reacción. 
Pero aquellos que se deciden por la pro- 
gramación elevan su capacidad de abs- 
tracción y de expresión mediante el len- 
guaje escrito. 

• En muchas ocasiones la afición a la 
informática redunda en un aumento de 
las calificaciones escolares (aunque siem- 
pre se destaquen los casos en que ocurre 
lo contrario y, en todo caso, la afición a 
la informática abre las puertas a un es- 
peranzador mercado de trabajo. Hoy es- 
tán colocándose muchos de los aficiona- 
dos a la informática de hace pocos años, 
aun sin tener ningún tipo de estudio su- 
perior. 

Lo que no debería ocurrir en ningún 
caso es que la informática represente una 
pérdida del tiempo dedicado a otras ac- 
tividades como el estudio, el deporte, etc 
La informática puede complementarlas a 
todas ellas; pero nunca sustituirlas. 

Willy Miragall 
efe de 




Línea directa 
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AVISO 

Agradeceríamos que Julián Ru- 
bioo se pusiera en contacto con 
nuestro departamento de suscrip- 
ciones por motivos referentes a la 
publicación de un programa. Pue- 
de llamar al teléfono de Barcelona 



UNIDADES DE 
DISCO 

Una unidad de 5 1/4 de un PC, 
¿puede usarse en. un ordenador 
MSX?, y viceversa, ¿una unidad de 
MSX en un PC? 

Armando 
Talavera de la Reina 
(TOLEDO) 

El intercambio de unidades que 
propones es perfectamente facti- 
ble; pero nada fácil. El problema 
no radita en las unidades de disco 
{perfectamente intercambiables), 
sino en los controladores de disco. 

Un controlador de disco de un 
PC no puede conectarse a un MSX, 
ni a la inversa. De este modo, para 
poder conectar nuestra unidad 
MSX al PC debemos seguir los 
siguientes pasos: 

1P Conseguir un controlador 
de disco para PC que soporte dis- 
cos de 3 1/2 pulgadas. 

2? Despojar a la unidad de dis- 
co MSX del controlador de disco 
que incorpore. 

3P Solucionar las 
entre conectadore. 
nexión. 

El proceso inverso, conectar una 
unidad de PC a un MSX resulta 
algo más complicado, ya que en el 
mercado no existen controladores 
de disco de 3 1/4 que se vendan 
por separado. 

Pese a todo, no comprendemos 
exactamente el motivo de tu pre- 
gunta, ya que existen unidades de 
5 1/4 específicamente disenadas 
para los MSX (Spectravideo) y 
unidades de 3 1/2 específicas para 
PC, que te darán un completo re- 
sultado. 

Debes saber por último que el 
formato de disco 5 1/4 de MSX es 
totalmente compatible con el de 
los IBM PC y que lo mismo ocurre 
entre las unidades de 3 1/2 MSX 
y las de PC. 



DUENDES 
INFORMATICOS 

Tengo un SONY MSX HB-20P. 
Hace poco cerré el ordenador con 
un juego dentro. Cuando lo volví 
a encender, la tecla del cursor de- 



recha no funcionaba. En el manual 
salían unas instrucciones para 
comprobar las teclas; pero tampo- 
co funcionaron.* ¿Qué es lo que le 

Marc Camps Ri 
(BARCELONA) 

Evidentemente el fallo de la te- 
cla de cursor derecha no tiene nada 
que ver con el hecho de que apa- 
garas tu ordenador con el juego 
dentro. /No me digas que normal- 
mente sacas los cartuchos con el 
ordenador encendido! 

Es totalmente normal el hecho 
de apagar el ordenador antes de 
retirar el juego (es lo que hay que 
hacer siempre), por lo que no pue- 
de ser la causa del error. 

Es posible que la tecla fallara por 
causas mecánicas, ante lo cual, sólo 
cabe una posible solución, enviar el 
ordenador al servicio técnico de 
Sony, que te proporcionará la so- 
lución adecuada al problema de tu 
aparato. 
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TEST DE LISTADOS 

Les remito la presente para ver 
de solucionar unos errores que me 
salen en el programa «DECLA- 
RACION DE LA RENTA», pu- 
blicado en la revista MSX- 
EXTRA, número 38. Dichos erro- 
res son «Sintax Error en 200, 320, 
330, 1910» y al parecer todas las 
líneas que llevan el signo «[». 

Vicente García Hernández 
Ajofrín (TOLEDO) 

El error que nos comenta no se 
debe a la aparición del símbolo «[», 
sino a otro de los componentes de 
dichas lineas. Todas ellas coinci- 
den, además de por la existencia de 
dicho símbolo, por realizar llama- 
das a la rutina en ensamblador que 
contiene el programa: USR (...) 

Suponemos, por tanto, que el 
error cometido al introducir el pro- 
grama radica en las líneas DATA 
y no en las /' 
rece el error. 



El hecho de que los errores apa- 
rezcan en líneas diferentes a aque- 
lla en las que se producen realmen- 
te, es bastante normal en los 
programas. Para solucionarlo, re- 
comendamos encarecidamente la 
utilización del test de listados, que 
le hubiera permitido localizar la 
línea en la que se encuentra el 
verdadero error. Si hubiera utiliza- 
do el test del listado se hubiera 
ahorrado un montón de quebrade- 
ros de cabeza. 



Os agradecería si me pudierais 
indicar algún programa de gráficos 
para un ordenador HB-10 Toshiba 
de 64Kb que me 
gráficos, insertar textos, y 
todo a la impresora 

¿Qué hace EDDY II? ¿Es cinta, 
disco o cartucho? 

Delfín Gil Herrera 
(BARCELONA) 

Responderemos a tu primera 
pregunta respondiendo a la segun- 
da. EDDY II es uno de los mejores 
— por no decir el mejor — diseña- 
dor gráfico para los MSX de pri- 
mera generación. Este programa 
permite realizar líneas, polígonos, 
círculos, arcos, insertar textos, tra- 
mar con diferentes colores, mez- 
clar cobres para conseguir tonali- 
dades nuevas, etc. 

Además amplía el BASIC con 
nuevas instrucciones, permitiendo 
gracias a esto generar gráficos en 
BASIC de una forma mucho más 
sencilla a la habitual. 

Es un programa muy completo 
que, por lo que nos comentas en 
tu carta, solucionará perfectamente 
tus necesidades. 

Un último detalle. EDDY II (de 
HAL) está distribuido por ZAZA 
Soft en formato cartucho. 



CINTAS 
FANTASMAS 

Hace dos meses que compré un 
MSX de la primera generación. 
Pero desde hace unos días po con- 
sigo sacar los programas de la cinta 
cassette, ya que se imprime en la 
pantalla «Device I/O error». 
¿A qué se debe esto? ¿Puede ser 
un mal funcionamiento del orde- 
nador? o, por el contrario la cinta 
de cassette ¿no es la adecuada?, ya 
que las que utilizo son de 
Cromo. 

Julián Gómez de la Fuente 
(GUADALAJARA) 



Las cintas, como todos sabéis, 
fueron creadas como medio para 
grabar y reproducir sonido. Los 
ordenadores MSX, como muchos 
otros ordenadores domésticos, uti- 
lizan ¡as cintas de cassette para 
grabar sus programas, ya que los 
discos y otros medios de almace- 
namiento son de un coste muy ele- 
vado. 

Desgraciadamente, las cintas de 
cassette no son el medio idóneo 
para grabar la información que 
compone nuestros programas. 

Varias causas pueden producir la 
pérdida irremisible de nuestros 
datos. 

— Pérdida de amplitud en la se- 
ñal grabada en la cinta. Esta pér- 
dida de amplitud se reconoce por- 
que la cinta suena «más flojo» que 
una cinta recién grabada. Este tipo 
de fallos son muy frecuentes entre 
los recién llegados a la informática, 
ya que, ' generalmente, provienen 
de almacenar las cintas en una 
zona expuesta a radiaciones o cam- 
pos magnéticos. Muchos nuevos 
usuarios, desconociendo este pro- 
blema de las cintas (se borran con 
los campos magnéticos), almace- 
nan sus cintas cerca de televisores, 
fuentes de alimentación, altavo- 
ces, etc. 

— Desajuste del azimut del ca- 
bezal del cassette. Un golpe, o sim- 
plemente el uso, pueden desajustar 
el azimut del cassette con el que 
estamos intentando leer las cintas. 
Justo encima del cabezal del casset- 
te existe un pequeño tornillo que 
nos permite ajustar este azimut 
para, de esta forma, conseguir car- 
gar sin problemas cualquier 
cinta. 

— Falta de verificación. Puede 
también ocurrir que, por un defec- 
to de fabricación de la cinta, una 
arruga, o cualquier otra causa, no 
se graben correctamente los datos 
en la cinta. Si hemos efectuado la 
grabación sin comprobar después 
la corrección de la misma es muy 
probable que el error permanezca 
desapercibido hasta el momento 
de volver a cargar la cinta, en el 
que será totalmente imposible re- 
cuperarlo. 

Y otras muchas posibles causas 
que no podríamos enumerar aquí. 
Respecto a la utilización de cintas 
de cromo, es verdad que éstas tie- 
nen una calidad mucho mayor que 
las normales; pero pensamos que 
es un pequeño despilfarro gastarse 
el dinero en una cinta de calidad 
para grabar una señal que, como 
máximo, tendrá una frecuencia de 
4800 Hz. Puedes, por tanto, utili- 
zar cualquier tipo de cinta normal 
que puedas localizar en tu pobla- 
ción sin miedo a que por eüo pue- 
das perder los datos grabados en 
ellas. 
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Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 

r Nombre y~¡pellidos " 
Dirección 

CP Prov. Tel.: 



"1 



Población 

□ KRYPTON 

□ U BOOT 

□ LORD WATSON 

□ LOTO 

□ SNAKE 



Ptas. 500,- □ STAR RUNNER Ptas. 1.000,- 

Ptas. 700- □ TEST DE LISTADOS Ptas. 500,- 

Ptas. 1.000- □ HARDCOPY Ptas. 2.500,- 

Ptas. 900— □ MATA MARCIANOS Ptas. 900- 

DEVIL'S CASTLE Ptas. 900,- 

FLOPPY Ptas. 



□ MAD FOX Ptas. 1.000,- 

□ VAMPIRO Ptas. 800,- 

□ SKY HAWK Ptas. 1.000,- 

□ TNT Ptas. 1.000,- 

□ QUINIELAS Ptas. 1.000,- 



Gastos^de envío certificado por cada cassette Ptas. 70 - Remito talón bancario de Ras. A la orden de Manhattan Transfer, S. A. 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 
10-12 BAJOS. 08023 BARCELONA. Para evitar demoras en la entrega es imprescindible indicar nuestro código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS A NUESTRA REDACCION: ;N0 SE ADMITE CONTRA REEMBOLSO! 
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Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a tres inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro 



Vendo ordenador Commodore 64 y 
periféricos como unidad de discos, cas- 
sette y tableta gráfica. También vendo 
juego originales en disco y cinta. Bue- 
nos precios. Juan Luis Guirau. Tlf.: (93) 
204 03 71. BARCELONA. CP.l. 
Vendo ordenador Sony HB-101P, sis- 
tema MSX, con dos cartuchos de- jue- 
gos, libros de instrucciones y cintas con 
juegos. Completamente nuevo. Precio, 
35.000 Ptas. Tlf.: (968) 23 39 37. 
CP.l. 

Contactos. Hemos traído de Inglaterra 
juegos de MSX, mapas, pokes, chapas, 
pósters gigantes, ampliaciones de 64 
Kb superbaratas, cartuchos convetido- 
res de MSX2 en MSX1 que estamos 
dispuestos a cambiar o vender. Apún- 
tate a nuestro club. Muchos regalos y 
super-carnet. Frederick Per. C/. Santa 
Ana, n.° 9, 1°, i.*. Cerdanyola, 08290 
(BARCELONA). CP.l. 
Intercambio/ vendo programas origi- 
nales para MSX. Poseo muchos títulos, 
entre ellos últimas novedades como 
PHANTIS, DESESPERADO, STAR- 
DUST, FREDDY HARDEST, 
GOODY, etc. Para mas información 
mandar lista a Joaquín Montero Amat. 
C/. Constitución, a° 31, 3D. 03360, 
Callosa de Segura (ALICANTE). Tlf.: 
(96) 531 H 17. CP.l. 
Vendo. Gran oferta: Samantha Fox, 
Compor (Philips), Arkanoid, Manic 
Miner, Army Moves, Phantomas II ori- 
ginales por 650 Ptas. cada uno, o 3.500 
Ptas. todos. También cambio por Né- 
mesis o Penguin Adventure. Vendo 
otros juegos por 200 Ptas. Néstor Noci. 
Trav. de Dalt, 100, 7.', 3. a 08024 (BAR- 
CELONA). Tlf.: 213 31 82. CP.l. 
Vendo ordenador Sony HB-201P, con 
tecla de PAUSE intacta, lote de más de 
100 juegos (novedades), cables, revis- 
tas. Precio rak>nable y a convenir. Fe- 
rrán. Tlf.: (93) 303 30 80. BARCELO- 
NA CP.l. 

Vendo por compra de MSX2, ordena- 
dor Hb-55P, «ampliación de memoria 
HBM-16, más unidad de disco HBD- 
50, más tres cartuchos, más siete juegos 
y programa de contabilidad 1500 (en 
disco), manuales y cables, por 70.000 
Ptas. Angel Rodríguez. Avda. Habana, 
79^ E. Tlf.: (988) 22 89 57. ORENSE. 
CP.l. 

Vendo unidad de disco de 3 1/2", doble 
cara Mitsubishi ML-30FD y ordenador 
HB-75P. Precio a convenir, incluido 
cables, libros y jegos varios. Todo en 
perfecto estado. Gabi L Pujadas. Tlf.: 
(93) 240 92 94. C/ Riera Blanca, 53- 
5.5, 3.°, 2.' BARCELONA 08028. 
CP.l. • 

Vendo ordenador Philips VG-8235 
MSX2 (teclado y monitor) en perfecto 
estado por no utilizarlo. Garantizado 
(comprado en marzo- 1987). Se inclu- 
yen manuales y programas. Todo por 
95.000 Ptas. Tlf.: (973) 31 05 18. Pre- 
guntar por Jaume. De 9 a 11 de la 
noche. CP.l. 

Vendo Dynadata DPC-200 con ma- 
nual en castellano e inglés, cable cone- 
xión CRF, cintas juegos. Regalo revis- 







tas, cassette con cable conexión y cintas 
vírgenes para grabar programas. Todo 
por 40.000 Ptas. Manuel Sánchez. C/ 
Mateo Hernández, 18, 2°, Izq. 37700, 
Besar (SALAMANCA). CP.l. 
Contacto con usuarios de MSX -2 que 
posean el juego DRAGON WORLD 
para intercambiar trucos y poder llegar 
al final Emilio J. de Haro Abuso. C/ 
Bidasoa, n° 8, 3.°, 6." 04006 ALMERIA 
Tlf.: (951)25 44 93. CP.l. 

Contacto. Estoy interesado en cam- 
biar trucos y conocimientos acerca del 
MSX-1 y MSX-2. Escribir a Daniel 
Cortés Zaragoza. C/ Escultor Peresejo, 
26, 7.o 03800 Aicoy (ALICANTE). 
CP.l. 

Compro impresora plotter Sony 
PRN-C41 por 15.000 Ptas. y doy ade- 
más 6 juegos de KOMANI (sky Jaguar, 
Track & Field I, II, etc), 2 juegos de 
SONY (Mouser, EX) y 20 juegos de 
revistas. Iván Juvilla. QJ Fluxia, a° 207, 
2.0, 3.» 08020 BARCELONA. Tlf.: (93) 
308 69 30. CP. 1." 

Vendo vídeo grabador-reproductor 
EV-CBE y cámara de vídeo Handycam 
CCD-MBE de Sony, formato de 8 mm. 
Ideal para digitalizaciones y produccio- 
nes de vídeo sobre MSX-2. Tlf.: (976) 
22 24 70. Preguntar por Luis Sanz. 
CP.l. 

Vendo ordenador Sony HB-55P casi 
nuevo (incluye cables, libros, manua- 
les...) ampliación de 64 ?b Philips y 30 
juegos. Todo por '37.000 Ptas. Carlos 
Lafuente. Tlf.: (93) 200 98 92. C/ Cal- 
vet, 21, 4°, 2.' BARCELONA. CP.l. 
Compro libros o revistas de toda clase 
de ordenadores MSX que se refieran a 
temas de lenguaje máquina. Precio a 
convenir. Alvaro Toaode García. Tlf.: 
(981) 51 10 42. Llamar a partir de las 
6 de la tarde. CP.l. 

Vendo SONY HB-101P + cassette 
Bit-corder SDC-600S de Sony + joys- 
tich JSJ-20 de Sony +. 1 cartucho de 
juego original (Konami) + 3 cassettes 
de juegos originales + 7 revistas + 
curso de BASIC de Sony en dos cintas 
de vídeo BETA t cables y manuales. 
Todo por 55 000 Ptas. (sin curso de 
vídeo 50.000). Jorge Ferrer Gracia C/ 
Cantarero, n.° 5. Monzón (HUESCA). 
Tlf.: (974)40 28 42. CP.l. 

Vendo ampliación de memoria para 
MSX de 64 Kb. También vendo los 
siguientes programas: Death Wish 3, 
Phantis, Freddy Hardest, Highway En- 
counter y Goody por 1.500 Ptas. y 
programas de MSX-2. Llamar los fines 
de semana al Tlf.: (93) 652 16 94 o 
escribir a Antonio Montero. C/ Gudad 
Cooperativa, 49, 5.°, 2." Sant Boi 08830. 
CP.l. 

Contacto con usuarios MSX Yamaha 
MUSIC computer para intercambios. 
También intercambio juegos y utilida- 
des para MSX en cinta. Segundo Ro- 
dero Rubio. Encomienda de Palacios, 
93. 28030 MADRID. Tlf.: (91) 773 63 
70. CP.l. 

Vendo juegos originales. The ljving 
daylights (800 Ptas.), Beamrider (2.000 
Ptas.), Black Jack (500), Molecule man 



(400). Cassette para ordenador con 
cuentavueltas (3.000). Libro de progra- 
ma (700) y cuatro revistas MSX (900). 
Todo por 7.500 Ptas., y regalo Speek- 
King' Eduardo Martínez Cerón. QJ 
Cura Valera, n° 2. Alhama de Murcia 
(MURCIA). 30840. CP.l. 
Vendo Commodore 64 + datassette + 
joystick + 100 programas (utilidades y 
juegos originales) + manual + libro 
contabilidad para la empresa + intro- 
ducción al CBM-64. Todo por 35.000 
Ptas. También vendo Simon's Basic 
con manual 5.000 Ptas. Urge. Llamar 
al 25 50 95 (987). Angel Luis Bueno, 
a partir de las 10 de la noche. CP.l. 
Vendo ordenador YAMAHA CX-5M 
con módulo musical sintetizador SFG- 
05 + teclado YK-20 + cartucho Voi- 
cing Program, todo por 50.000 Ptas. 
También una lectora de Qukk Disk, 
por 6.000 Ptas. Programas BIT 2 por 
2.000 y DX7 Voicing Program, por 
3.000. Joan Miró. (973) 15 04 17/15 01 
45. CP.l. 

Vendo MSX-2 VG-8235 de 256 Kb y 
DISKDRJVE, monitro color e impre- 
sora VW0030. Todo de Philips. Con 
HOME OFFICE 2, LOGO, TURBO 
PASCAL y sistema operativo en dis- 
kettes. Dejar teléfono contacto en 
(985) 26 13 26. Agustín. CP.l. 
Vendo SONY F-700 ¿X-2 con unidad 
de disco doble cara, teclado ratón, etc, 
por 70.000 Ptas. También vendo uni- 
dad de disco Mitsubishi ML-30FD 720 
Kb, doble cara por 40.000 Ptas. Todos 
en perfecto estado y en garantía. Re- 
galo programas. Luis A. Sanz. Latassa, 
22, 50006 ZARAGOZA. Tlf.: (976) 22 
24 70. CP.l. 

Vendo impresor a NEWPRINT Ad- 
mate DP-80LQ, 80 columnas, 120 cps 
y con 24 diferentes tipos y tamaños de 
letra. Permite el volcado de pantallas 
gráficas, está casi nueva e incluso ma- 
nual de instrucciones y embalajes oro- 
ginales. Precio a negociar. Además in- 
tercambio juegos en disco de 3.5". 
Llamar o escribir a Alvaro Rodríguez. 
C/ Urzaie, 69, 7 °-Dcha. 36201 VIGO 
Tlf.: (986) 43 28 18. CP.l. 
Vendo Sony HB 50 1P por cambio a 
MSX-2, cassette incorporado, 80 Kb de 
RAM, cables, manuales. Todo por 
35.000 Ptas. Antonio Fernández Mora. 
QJ S. Antonio, 17. 04810 Panaloa (AL- 
MERIA). CP.l. 

Vendo ordenador SVI-738 con 80 Kb 
de memoria RAM, unidad de disco de 
360 Kb con sistemas operativos CP/M 
y MSX-2 y una ampliación del BASIC 
todo con sus manuales y amplia docu- 
mentación de informática de regalo 
(65.000 Ptas.). Vendo también televi- 
sión SHARP 12" con 3 canales 
(15.000). Ordenador +. televisión 
(70.000 Ptas.). Llamar al (972) 50 47 
30, de 15 a 17 h, o escribir a A. 
Recasens. QJ Junquera, n.° 117, 3B. 
Figueras (GERONA). CP.l. 
Vendo ordenador ,SONY HB-75P 
nuevo + plotter Sony. PRN-C41 + 
joystick, revistas, libros, cassettes, pro- 
gramas... Todo por 65.000 Ptas. Tlf.: 



(981) 20 35 63. CP.l. 
Busco algunas revistas MSX-CLUB y 
MSX-EXTRA, intercambiándolas por 
software. Rambla Justo Oliveras, 69, 
4.o, 3.» Hospitalet 08901 (BARCELO: 
NA). Dirigirse a Javier Nosás. CP.l. 
Cambio procesador de textos (Philips) 
+ ensamblador ZEM (Philips) + 
Compilador de PASCAL (Philips), to- 
dos juntos por desensamblador MONS 
de Sony. Interesados escribir a: Feo. 
Javier Mateos Muñoz. C/ Pasaje del 
Vallés, n.° 12, 4. a , 1.» 08330 BARCE- 
LONA CP.l. 

Vendo por compra de MSX-2 con dos 
unidades de disco, unidad de disco 
SONY HBD-50, en perfecto estado y 
con un gran número de programas de 
juegos y de gestión en discos. Todo, por 
35.000 Ptas. También cambio 11 jue- 
gos, Wordstar, dBase II, Home Office 
y el compilador Nevada COBOL por 
un compilador de BASIC o de C Angel 
Rodríguez Prada. Tlf.: (98) 22 89 57. 
ORENSE. CP.l. 

Vendo ordenador SONY HB-101P en 
perfecto estado. REgalo manuales, ca- 
bles, embalaje original, 65 juegos entre 
ellos HERO, BEAMRIDER, GOLF, 
RTVER-RAID... y varias revistas. Todo 
por 25.000 Ptas. Interesados ponerse 
en contacto con Carlos Andrés Garrido 
GiL Avda. Manuel de Falla, n° 17, 5- 
C de San Fernando (CADIZ). Tlf.: 
(956) 89 1 1 79, de 8 a 9 de la tarde. 
CP.l. 

Compro ampliación de memoria de 64 
Kb HBM-64 u otra marca. Christian 
Ortega Padró. Avda. Anselmo Clavé, 
26, 4.°, 2.» CorneUá (BARCELONA). 
Tlf.: (93) 377 03 14. CP.l. 
Vendo ordenador musical YAMAHA 
CS5M por 49.900 Ptas. José. Tlf.: (945) 
25 66 50. CP.l. 

Vendo 007 Alta Tensión, Camelot 
Warriors y Pentagram a 800 Ptas. c/u 
(sistema MSX) o los cambio por Phan- 
tis, Phantomas II o El Martínez Vidal. 
QJ Mendizábal, 29, n.° 6. 46011 VA- 
LENCIA. CP.l. 

Compro revistas MSX atrasadas y li- 
bros sobre MSX (p»ogramación CM, 
descripciones del sistema, etc.). Manuel 
Piñar Ruiz. QJ Real de Cartuja, n.° 50. 
18012 GRANADA. CP.l. 
Vendo ordenador MSX Philips 8020, 
monitor Ambar 80, impresora matri- 
cial Philips 0030 (96 tipos de letra 
diferentes^ unidad de discos simple 
cara doble densidad 010 de Philips. Se 
puede vender junto o separado. Regalo 
juegos. Buenos Precios. Envío en 24 
horas. Juan Nievas Pérez. QJ Lepanto, 
24, 3 o B. 43202 Reus (TARRAGO- 
NA). Tlf.: (977) 32 33 67 (noches). 
CP.l. 

Vendo impresora plotter SONY en 
perfecto estado de uso y a precio re- 
galado. Regalo Plumines y si se quiere 
también programas. Escribir a Eustasio 
viviente Acosta. QJ Jara Carrillo, 28. 
30740. San Pedro del Pinatar. MUR- 
CIA. Tlf.: (968) 18 20 06. CP.l. 
Contacto con usuarios de MSX en 
Móstoles para cambiar programas, tru- 
cos e informeión en general del MSX. 
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También para formar un club MSX en 
Móstoles. Antonio Jesús García Serra- 
no. CJ Arévalo, n.° 2, 2B. 28930, MÓS: 
toles (MADRID). Tlf.: (91) 618 56 30. 
CP.l. 

Vendo/cambio juegos. Poseo entre 
otros Gauntlet, Army Moves, Arquími- 
des XXI, Star Soldier, Knight Mare, 
Phantis. Oscar J. Urdangaray Beade. 
Tlf.: (981) 28 52 81. CP.l. 
Vendo ordenador Philips VG-8020 de 
80 Kb, con garantía, cables, manuales 
y embalaje original. Regalo más de 30 
cintas con juegos comerciales y utilida- 
des, todas con carátula. También inter- 
cambio programas en disco 3,5". En- 
viar lista a Fernando Gómez. C/ 
Montsant, 32, 3 o , 1.» BARCELONA, 
08031. Tlf.: (93) 357 88 22. CP.l. 
Vendo SVI-738 con unidad de disco 
3.5" incorporada. 3 sistemas operativos 
(CP/M, MSX-2 y Disk-Basic). Cone- 
xión RS-232, 80 columnas, salidas ví- 
deo compuesto y televisor. Reset incor- 
porado. Maletín de transporte y 5 
manuales. Compatible ficheros IBM. 
Regalo dBase, Wordstar y un montón 
de juego y utilidades de todo tipo. Pre- 
cio a convenir. Javier, horas de comida 
y noches. Tlf.: (91) 401 91 85 MA- 
DRID. CP.l. 

Vendo ordenador TOSHIBA HX-10 

64 Kb, en buenas condiciones. Además 
de regalar 50 juegos, revistas de MSX, 
cargador de cintas y una estupenda 
cámara de hacer fotos. Todo ello por 
sólo 24.000 Ptas. C/ Molino, 48-50, 
BARCELONA, 08016. Tlf.: (93) 350 

65 20. Preguntar por Pedro Ruiz. 
CP.l. 

Vendo ordenador Philips 8250 MSX- 
2 con dos unidades de disco (doble 
cara), 256 Kb RAM 64 ROM, 3 sema- 
nas de antigüedad (en garantía). Rega- 
lo 10 discos llenos de programas. Lo 
vendo por compra de otro más grande. 
PVP: 80.000 Ptas. Llamar de 10.30 a 
12.00 noche. Tlf.: (93) 240 24 86. 
BARCELONA. Preguntar por RA- 
FAEL CP.l. 

Compro programas de dibujo, ensam- 
bladores y editores musicales en disco 
de 3 1/2" (MSX 1 y 2). También 
compraría ratón. Jaime. (91) 479 76 26. 
CP.l. 

Cambio Track & Field II (cartucho), 
CHILLER (cinta) y PANIC JUNC- 
TION (cinta) por el juego Némesis 
(cartucho). Preguntar por Enrique. 
Tlf.: (91) 232 41 01. Madrid. Llamar 
a partir de las 15.30 y los fines de 
semana por la mañana. CP.l. 
Vendo ordenador SVI-738 X PRESS 
con manuales en castellano, conexio- 
nes, maletín de transporte y su emba- 
laje. A estrenar. Tlf.: (976) 56 59 35. 
Santiago Oliver. Zaragoza. Llamar ho- 
ras comidas."CP.l, 

Vendo Mitsubishi ML-G3 (MSX-2 con 
unidad de disco incorporada) + Music 
Module (Philips) + 20 discos (llenos 
de los mejores programas)... Todo in- 
tacto por 50.000 Ptas. Jordi Maya Me- 
seguer. C/ San José, 14. 08370, Calella 
(BARCELONA). Tlf.: (93) 769 06 40. 
CP.l. 

Vendo carrucho ROM MSX (Hyper 
Sport I, Kung Fu I, Némesis, Atletic 
Land), impresora plotter Sony PRNC 
color, plotter primer y unidad de discos 
Philips VY-0010 con 50 programas 



originales en disco de regalo. Sascha 
Ylla.Tlf.:212 72 03.CP.2. 
Deseo contactar con personas intere- 
sadas en intercambiar juegos MSX. En- 
viar lista al apañado 41 de Llinas del 
Vallés. Enviaré lista de juegos, más de 
150. Absoluta seriedad Andrés Berme- 
jo. CP.2. 

Vendo ordenador Sony HB-20P, MSX. 
Poco uso, con garantía. Regalo libros, 
revistas, manuales, cartuchos y cintas 
de juegos. Sólo por 20.000 ptas. Tel.: 
332 28 25. VALENCIA. Llamar de 14 
a 16 horas. CP.2. 

Compro sofware de aplicaciones y ges- 
tión, en formato de cinta o cartucho, 
también estaría dispuesto a intercam- 
biarlo. Jordi Salvadó. CJ Sant Tomás, 
3, 43330 Riudoms (TARRAGONA). 
CP.2. 

Vendo ordenador SVI-728 MSX y mo- 
nitor en color CZEND por sólo 35.000 
ptas. Todo en perfecto estado. Una 
ocasión única para entrar en el mundo 
del MSX. Jorge Miragall Grau. Avda. 
Uno 4, 2.° 3 a , Sta. Perpétua de Mogoda 
(BARCELONA). Tlf.: (93 ) 560 53 49 
a partir de las 21.00 horas. CP.2. 
Cambio procesador de textos (Philips) 
+ ensamblador ZEN (Philips) + com- 
pilador de PASCAL (Philips), todos 
juntos por ensamblador MONS de 
Sony. Interesados escribir a: Feo. Javier 
Mateos Muñoz. C/. Pasaje del Vallés 
12, 4.o 1.'. 08330 BARCELONA. 
CP.2. 

Vendo por compra de MSX-2 con dos 
unidades de disco, unidad de disco Sony 
HBD-50, en perfecto estado y con un 
gran número de programas de juegos 
y de gestión en discos, todo por 35.000 
ptas. También cambio 1 1 juegos y 
Wordstar, dBase II, Home Office y el 
compilador Nevada de BASIC o de C. 
Angel Rodríguez Prada. Tlf.: (98) 22 
89 57. ORENSE. CP.2. 
Vendo ordenador Sony HB-101P en 
perfecto estado. Regalo manuales, ca- 
bles, embalaje original, 65 juegos entre 
ellos: Hero, Beamrider, Golf, River- 
Raid..., y varias revistas, todo por 
25.000 ptas. Interesados ponerse en 
contacto con Carlos Andrés Garrido. 
Avda. Manuel de Falla 17, 5-c de San 
Fernando (CADIZ). Tlf.: (956) 89 1 1 
79 de 8 a 9 de la tarde. CP.2. 
Compro ampliación de memoria de 
64Kb HBM064 u otra marca. Christian 
Ortega Padró. Avda. Anselmo Calvé 
26, 4.0 2.\ Cornelia (BARCELONA). 
Tlf.: (93) 377 03 14. CP.2. 
Vendo ordenador musical Yamaha 
CX5M por 49.900 ptas. José. Tlf.: 
(945) 25 66 50. CP.2. 
Vendo 007 Alta Tensión, Camelot 
Warriors y Pentagram a 800 ptas. c/u 
(sistema MSX) o los cambio por 
Phantis, Phantomas II o El Cid. Son 
originales. Facilito mapas y cargadores. 
Noel Matínez Vidal. C/. Mendizábal 
29, n.o 6. 4601 1 VALENCIA. CP.2. 
Compro revistas MSX atrasadas y li- 
bros sobre MSX (pogramación CM, 
descripciones del sistema, etc). Manuel 
Piñar Ruiz. C/. Real de Cartuja 50. 
18012 GRANADA. CP.2. 
Vendo ordenador MSX Philips 8020, 
monitor Ambar 80, impresora matri- 
Q*l Philips 0030 (96 tipos de letras 
diferentes), unidad de discos simple 
cara, doble densidad, 010 de Philips. Se 



puede vender junto o separado. Regalo 
juegos. Buenos precios. Envío en 24 
horas. Juan Nievas Pérez. C/. Lepanto 
24, 3 B. 43202. Reus (TARRAGO- 
NA). Tlf.: (977) 32 33 67 (noches) 
CP.2. 

Vendo impresora plotter Sony en per 
fecto estado de uso y a precio regalado. 
Regalo plumines y si se quiere también 
programas. Escribir a Eustasio Vivien- 
te Acosta. CJ. Jara Carrillo 28. 30740 
San Pedro del Pinatar (MURCIA0. 
Tlf.: (968) 18 20 06. CP.2. 
Contacto con usuarios de MSX en 
Móstoles para cambiar programas, tru- 
cos e información en general del MSX. 
También para formar un club MSX en 
Móstoles. Antonio Jesús García Serra- 
no. C/. Arévalo* 2, 2 B. 28930 Móstoles 
(MADRID). Tlf.: 618 56 30. CP.2. 
Vendo/cambio juegos. Poseo entre 
otios Gauntlet, Army Moves, Arquí- 
medes XXI, Star Soldier, Knight Mare, 
Phantis. Oscar J. Urdangaray Beade. 
Tlf. (981)28 52 81. CP.2. 
Vendo ordenador Philips VG-8020 de 
80Kb, con garantía, cables, manuales y 
ambalaje- original. Regalo más de 30 
cintas con juegos comerciales y utilida- 
des, todas con carátula. También inter- 
cambio programas en disco 3'5". En- 
viar lista a Fernando Gómez. CJ. 
Montsant, 32, 3.°, 1. a . BARCELONA 
0803 1 . Tlf. : (93 ) 357 88 22. CP.2. 
Vendo SVI-738 con unidad de disco 
3'5" incorporada. 3 sistemas operativos 
(CP/M, MSX-DOS y Disk-Basicf. Co- 
nexión RS-232, 80 columnas, salidas 
vídeo compuesto y televisor. Reset in- 
corporado. Maletín de transporte y 5 
manuales. Compatible ficheros IBM. 
Regalo dBase, Worstar y un montón de 
juegos y utilidades de todo tipo. Precio 
a convenir. Javier? horas de comida y 
noches. Tlf.: 4019185 (MADRID). 
CP.2. 

Vendo ordenador Toshiba HX-10 
64Kb, en buenas condiciones. Además 
de regalar 50 juegos, revistas de MSX, 
cargador de cintas y una estupenda 
cámara de hacer fotos. Todo ello por 
sólo 24.000 ptas. CJ. Molino, 48-50. 
BARCELONA 08016. Tlf.: 35065 20. 
Preguntar por Pedro Ruiz. CP.2. 
Vendo ordenador Philips 8250 MSX- 
2 64 ROM, 3 semanas de antigüedad 
(en garantía). Regalo 10 discos llenos 
de programas. Lo vendo por compra de 
otro más grande. PVP: 80.000 ptas. 
Llamar de 1030 a 12.00 noche. Tlf.: 
240 24 86. BARCELONA. Preguntar 
por Rafael. CP.2. 

Compro programas de dibujo, ensam- 
bladores y editores musicales en disco 
de 3'5" (MSX 1 y 2). También com- 
praría ratón. Jaime. Tlf.: 
(91) 479 76 26. CP.2. 
Cambio Track & Field II (cartucho), 
Chiller (cinta) y Panic Junction (cinta) 
por el juego Némesis (cartucho). Pre- 
guntar por Enrique. Tlf.: 
(91)232 24 01. MADRID Llamar a 
partir de las 1 5.30 y los fines de semana 
por la mañana. CP.2. 
Vendo ordenador SVI-738 X'Press con 
manuales en castellano, conexiones, 
maletín de transporte y su embalaje. 
A estrenar. Tlf.: (976)56 59 35. San- 
tiago Oliver. ZARAGOZA. Llamar ho- 
ras comidas. CP.2. 

Vendo Mitsubishi ML-G.3 (MSX-2 con 
unidad de disco incorporada) + Music 



Module (Philips) +20 discos (llenos 
de los mejores programas)... todo in- 
tacto por 50.000 ptas. Jordi Maya Me- 
seguer. CJ. San José, 14. 08370 Calella 
(BARCELONA). Tlf.: (93)769 06 40. 
CP.2. 

Intercambio lenguajes y programas 
para SVI-328 en CP/M-80. Tengo 
Cobol-80, Fortran-80, Forth, Turbo 
Pascal, Profile, dBase II, Word Star y 
MBasic. Koldo Navarro Pardo. CJ. 
Juan Gardeazábal, 1, 1. o A, Esc. C BIL- 
BAO 48004. BISKAIA. CP.2. 
Vendo ordenador Toshiba HX-10 de 
64Kb, con garantía 6 meses. Nuevo, 
con manuales, instrucciones e introduc- 
ción al BASIC. 3 cartuchos konami, 
cassette ordenador, joystick Sanyo y 
joystick Aristón. Todo junto o por se- 
parado. ¡Precio regalado por comprarlo 
todo junto! Miguel Garrido Pareja, Bib- 
rambla, 22, IA Tlf.: 22 28 52. GRA- 
NADA. CP.2. 

Vendo consola de vídeo-juegos Atari 
en perfecto estado. Incluyo 2 joysticks, 
2 paddles, 8 juegos ROM (valorado en 
40.000). Precio 15.000 ptas. negocia- 
bles. Carlos. Tlf.: (93) 35475 88 a par- 
tir de las 21.00 h. CP.2. 
Compro programa para MSX-1 (Spec- 
travideo SVI-728) para control de 
almacén-entradas, salidas, stocks, lista- 
do, etc, en disco de 5 1/4". José Miguel 
Rodríguez. CJ. Rio Ser, 4, 3 B. 17003 
GIRONA CP.2. 

Intercambio programas originales 
para MSX. Poseo últimas novedades de 
ERBE, DINAMIC y KONAMI. Inte- 
resados escribir a Joaquín Mintero 
Amat. CJ. Constitución, 31, 3.°, dreha 
03360 Gallosa de Segura (ALI CAN- 
TEO. CP.2. 

Vendo ordenador MSX-2 de Mitsubis- 
hi por 52.000 ptas. Jaime Buxeda. Tlf.: 

(93) 71097 82. Sabadell (BARCELO- 
NA). Llamar tardes. CP.2. 
Cambio/Vendo programas MSX ori- 
ginales. Paseo Gauntlet, army Moves 1, 
2, etc. Juan García Lizaa CJ. Fulgencio 
Miñano, 7. Molina de Segura (MUR- 
CIA). CP.2. 

Compro/cambio Knightmare. Lo 
compro por 3 000 ptas. o bien lo cam- 
bio por Atlethic Land, Antartic Adven- 
ture, Monkey Academy, Soccer, Track 
& Field I, Kung-Fu I y Mouser. Fran- 
cisco Javier Orellano Liza. CJ. Mariano 
Vergara, 7, 5 ático. 30003 MURCIA. 
CP.2. 

Compro MSX 127kKb con pantalla de 
filtro verde y unidad de disco o IBM 
con pantalla de filtro verde y unidad de 
disco. Antonio Jesús Nieto Morales. 
Tlf.: 24 21 25. ALMERIA. CP.2. 
Vendo Spectravideo 738 X'Press com- 
pletamente nuevo (500 Kb). Urge su 
venta. Tlf.: (976) 56 59 35. ZARAGO- 
ZA. Preguntar por Santiago. CP.2. 
Contacto con aficionados que posean 
MSX (Toshiba HX-10) y que tenga 
conocimientos de electrónica para in- 
tercambiar ideas de fabricación de car- 
tuchos para controlar aparato telediri- 
gido por ordenador. Escribir a Imeldo 
de Castro Garda. CJ. Cuesta de la Villa, 
117. 38390 Sta. Ursula (Sta. Cruz de 
Tenerife). CP.2. 

Vendo ordenador Spectravideo SVI- 
318 con cassette SV-904, manuales, 2 
juegos y joystick Qukkshot II por 
19.000 ptas. José Félix Vicente. Tlf.: 

(94) 437 25 94. CP.2. 
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El basic paso a paso 



,Por Willy Miragall, 



Estructuración de 




Hoy terminamos este repa- 
so a la estructuración de pro- 
gramas en BASIC. Pero que 
dejemos de hablar de la es- 
tructuración de los programas 
no quiere decir que debamos 
olvidarla. Veamos cómo po- 
demos utilizarla en todos 
nuestros programas. 



PROBLEMAS 

Aquellos que, desde nuestro pasado 
encuentro, se hayan decidido a 
probar lo aprendido desarrollando 
unas cuantas subrutinas para sus progra- 
mas, tal vez habrán empezado a notar 
tediosos errores, muy típicos en BASIC, y 
conocidos como efectos colaterales. 

¿Qué son los efectos colaterales? Como 
vimos en el pasado número, una subrutina 
es como un programa completo. Como tal, 
utiliza variables, saltos, etc. Uno de los 
mayores problemas de la codificación de 
subrutinas, sobre todo cuando hay muchas, 
es la posibilidad de utilizar dos veces el 
nombre de una variable. 

Debido a esto es muy posibie que nos 
aparezca un error en una rutina que es 
correcta; pero cuyas variables han sido mo- 
dificadas por una subrutina situada en la 
otra punta del programa. Este tipo de 
errores son muy difíciles de localizar, ya 
que uno se empeña indefinidamente en 
corregir una rutina correcta. 

La mejor solución a este tipo de errores 
es no cometerlos. Pero ¿cómo conseguirlo? 
Uno de los medios más utilizados es uti- 
lizar en las subrutinas nombres de varia- 
bles muy poco usuales. Es fácil encontrar 
en la subrutina de los buenos programa- 
dores en BASIC variables como QC%, 
WW% o ZX$. Si sabemos que todas las 
variables que empiezan por Q están utili- 
zadas por las subrutinas hemos dado un 
gran paso. Basta con no utilizar variables 
que comiencen por Q en el programa 
principal. 

PASO DE PARAMETROS 

Otro de los problemas que surgen al 
utilizar subrutinas es saber qué parámetros 
hay que pasarle, en qué variable, cuáles son 
sus valores lógicos, etc. La mejor ^solución 
a este problema es la utilización exhaustiva 
de líneas REM. En estas líneas, situadas al 
principio de cada subrutina, deberíamos 
indicar el nombre de la rutina, lo que hace, 
y qué posibles valores hay que colocar en 
las variables para que todo funciones co- 
rrectamente. 



— 




variables. Hoy lo hemos convertido en una 
subrutina. Aquellos que seguisteis nuestro 
pasado número notaréis que los nombres 
de las variables han cambiado para que, de 
este modo, no haya interferencia posible 
con el progrma principal. 

Observad las líneas REM que encabezan 
la rutina. No todos los encabezamientos 
deben ser así; pero sí deben contener esta 



LLAMANDO A LA 



Para llamar a una subrutina, sea quien 
sea el autor, nos bastará entonces con echar 
un vistazo a las líneas REM que encabezan 
la rutina y colocar los valores adecuados en 
las variables que allí se indiquen. Para que 
todo sea más claro observad el listado 1. 
En nuestro pasado número habíamos re- 
alizado un programa que era capaz de 
realizar menús según los valores de ciertas 



Observad el listado 2, en él encontraréis 
la forma de llamar a la subrutina definida 
anteriormente. Para ello empezamos in- 
sertando los valores adecuados en las va- 
riables indicadas por las líneas REM de la 
subrutina y, a continuación, llamamos a la 
subrutina mediante una instrucción GO- 
SUB. Todo fácil y evidente. 

Como veis, con una llamada a subrutina 
hemos condensado mucho trabajo. Existen 
en el mercado subrutinas a la venta que 
realizan un sinfín de trabajos. Desde la 
búsqueda y ordenación de datos en ficheros 
indexados a la realización de gráficos y 
animaciones en alta velocidad. Para utili- 
zarlas basta con algo de dinero (a los 




programadores les gusta cobrar por su 
trabajo) y con saber el funcionamiento 
general de las subrutinas. Todo lo demás 
es coser y cantar. 



Ya hemos realizado rutinas, de acuerdo, 
pero si en cada uno de nuestros programas 
tuviéramos que teclearlas de nuevo no ga- 
naríamos mucho. 

Una de las principales ventajas de las 
subrutinas en BASIC es que pueden gra- 
barse separadamente y ser añadidas a cual- 
quier pograma de un modo muy sencillo. 
Gracias a esto la mayoría de programado- 
res desarrollan lo que se conoce como 
«librería de subrutinas». Cada vez que el 
programador debe hacer una tarea nueva 
(ordenar un fichero, realizar un menú, re- 
alizar una factura, etc.) no genera un pro- 
grama, sino una subrutina. Un programa 
sólo le serviría para esa ocasión, mientras 
que la subrutina podrá utilizarla muchas 
veces en el futuro. 

Cuando un programador está realizando 
un programa, le bastará con generar algu- 
nas subrutinas. Las demás ya las habrá 
realizado en programas anteriores por lo 
que le bastará con añadirlas al final del 
-programa que está realizando. El ahorro de 
tiempo y trabajo es, obviamente, 
enorme. 

El BASIC dispone de comandos que per- 
miten grabar independientemente subruti- 
na para, de este modo, poder conseguir en 
una cinta o disco una completa librería de 
programas. 

Para grabar una subrutina hemos de 
borrar todas las líneas del programa prin- 
cipal y de otras subrutinas. Para ello po- 
demos utilizar la instrucción DELETE. Su- 
pongamos que tenemos un programa 



organizado de la sig 
10 



LISTADO 



1 ' 

2 ' Prograw ejeiplo 

3 ' 

10 QN=7 

15 QT$="MENUS-CLUB" 
20 QO$(l)="Priiera" 
25 Q0*(2}='Sequnda" 
30 QOlUl^Tercera' 
35 Q0$(4)="Cuarta' 
40 QMO^'Quinta" 
45 Q0$(6)="Sexta" 
50 Q0$(7)= , Septiia" 
55 GQSUB 10000 
60 PRINT QP 
END 



4530 
10000 

... Subrutina a grabar 

10350 

11000 

... Otras' subrutinas 
34500 

Para borrar el programa principal 
haríamos 
DELETE 10-4530 

mientras que para borrar el resto de 
subrutinas podríamos realizar 

DELETE 11000-34500 

En este momento sólo queda en la me- 
moria del ordenador la subrutina que nos 
interesa grabar. Para grabarla haremos lo 
siguiente: 

SAVE "nom" (si deseamos grabarla en 
cinta) 

SAVE "nom" A (si la grabamos en 
disco) 

La instrucción SAVE (SAVE,A en disco) 
graba el programa (subrutina en este caso) 
en formato ASCII, en lugar del formato 
comprimido que utiliza el BASIC habitual- 

utilizaremos la instrucción MERGE. 
MERGE «nom» 

Merge es parecida a LOAD o CLOAD 
en el sentido de que carga de la cinta; pero 
no carga un programa. Lo que carga es una 
subrutina que añade al programa que haya 
en estos momentos en la memoria de 
nuestro ordenador. Hemos de vigilar que 
la subrutina no tenga los mismos números 
de línea que nuestro programa, ya que en 
este caso la subrutina borraría el programa 
al cargarse. 



DESPEDIDA Y CIERRE 

Así pues, y tras esto, somos ya capaces 

de 

a/ Realizar programas que funcionen 
según los valores de variables en lugar de 
hacer siempre lo mismo (ver ejemplo del 
menú del pasado número). 

b/ Convertir estos programas en sub- 
rutinas. 

c/ Grabar estas subrutinas en cinta o 
disco. 

d/ Fundir las subrutinas con nuestros 
propios programas. 

£?/ Llamar a las subrutinas desde nues- 
tros programas.' 



10010 
10020 
10030 
10040 
10050 
10060 
10070 



LISTADO 



mtmmmmtt 
i t 

I SUBRUTINA MENU t 
t I 

tmmtmmmt 



Entrada: 

QN =nuiero de opciones 
QT$=titulo del «enu 
QO$(l-n)=noibre de las opcione 



Salida: 

QP=nuiero de opción elegida 



10090 
10100 
s 

10110 
10120 
10130 
10140 ' 
10150 CLS 

10160 WIDTH 40:KEY OFF 

10170 FOR 1=1 TO 40:PRINT "--;:NEXT I 

10180 LOCATE 0,4:FQR 1=1 TO 40:PRINT " 

W;:NEXT 

10190 LOCATE 0,22:FOR 1=1 TO 40:PRINT 
"QW-;:NEXT 

10200 FOR 1=1 TO 21: LOCATE 0,I:PRINT ■ 

V: LOCATE 39,I:PRINT ■ |":NEXT I 

10210 LOCATE 0,0:PRINT " r " 

10220 LOCATE 0,4:PRINT ' \* 

10230 LOCATE 0,22: PRINT " l " 

10240 LOCATE 39,0:PRINT V 

10250 LOCATE 39, 4: PRINT *f! 

10260 LOCATE 39,22:PRINT nj "; 

10270 QX=(40-LEN(QTI))/2:LOCATE QX.2:P 

RINT 0T$ 

10280 QN=0 

10290 FOR 01=1 TO QN 

10300 IF LEN(QO$(QÍ))>flH THEN QH=LEN 

(90$ (BU) 

10310 NEXT QI 

10320 QP=(40-QN)/2-2 

10330 QH=t4-QN 

10340 FOR QI=1 TO QN 

10350 LOCATE QP, QH: PRINT CHRK64+QI) 

";Q0$(QD 
10360 QH=QH+2 
10370 NEXT QI 

10380 LOCATE 5,22:PRINT "Opción (A-'jC 
HR$(64+QN):") \* 
10390 LOCATE 18,22 
10400 QA$=INPUT$(1) 

10410 IF QA$<V THEN QP=ASC(QA$)-64 E 
LSE QP=ASC(QA$)-96* 
10420 IF dP< 1 OR QP>QN THEN 10400 
10430 RETURN 
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Software 



por Pedro R. Aguilar 




¿Quieres saber más cosas sobre el 
BASIC, formas de hacer todo más 
rápido y aprender nuevas técni- 
cas? Pues sigue leyendo. 




II OPEN"grp:*ASil 

20 COLOR 1,15,15 

30 SCREEN2, 2 

40 REH presentación 

50 FOR A=4BTO80STEP5 

60 LINE(48+B,A)-(96+B,A+50),l,B 

70 LINE(49+B,A+1)-(95*B,A+49),7,BF 

80 LINE(144-B.A)-(192-B,A+50),1,B 

90 LINE(145-B,A*1)-(191-B,A+49),7,BF 

100 B=B+8:NEXT 

110 DATA I.N, ,T,H,E, ,R,A, I,L,M,A,Y 

120 B=0:FOR A=1TO6:READB$:PSET(106+B,B 

6) , 7iPRINT#l , B$: B=B+4: NEH 

130 bWor A=1TO8:READB$:PSET(100+B,9 

8),7:PRINT*1,B$:B=B+5:NEXT 

140 FOR A=lTO5:PLAY"vl515sl4il00ar5":N 

EXT 

150 A$=INPUT$(t) 

160 COLOR 1.14,l:CLS:CLOSE:0PEN'SRP:'A 
Sil 

170 LINEí0,0)-(255,10i.l,BF 

!80 CIRCLE<30,30),15,10:PA!NT(30,30),1 



190 LINEÍ0,161)-(255,192),7,BF 
200 LINE!0,160}-(255,18BU5,B 
210 L!NE(0.16i:-«255,lB7),9,BF 



220 DRAW"bs0.50c3el0f20e50f30el0f5el0f 
5el0t20e?í20e50f5e5iii255,15?i0,159i0,50 
":PAINT(100,100i,3 

230 DRAW"BM40.70C15K230^0F5H245.140H2 
40,150K30.150f125,140H35 ! 7 5E5 , :PAINT(10 
0,100)^15' 

240 DRAW'BI140.70C7D50l127.t40B!*2:0.70D5 
0!1245,140' 

250 DRAH"BM40 1 70C7!1230 l 70F5H245 f 140H24 

0, 150^0. 150K25,140H35,75E5':PAINT(35, 

120\7:PAINT<239,125),7 

260 DRAH " B«4 1 , 70C 1 D5Í M27 , 1 46BH230 , 70D5 

IH245,14f". 

270 FOR A=4BTOA+123STEP16:LINE(A,90)-( 
A+16,125!,1,B:LINE(A+1,91)-(A+15,124), 
4, BF:NEXT 

2B0 LINE(195,104)-(217,14B),1,B 

290 FOR A=196TOA+16:LINEiA,105)-(216,l 

48),1,B:NEXT 

300 FOR A=212TO196STEP-1:LINE(A,105)-! 
216,148), 15, B:NEXT:R£M TERMINA 
310 REH DEFINE LOS SPRITES 
320 REST0RE33I:F0R A=14336TOA+103:READ 
B: VPOKEA, B: NEXT: REH DATA CABEZA HOHBRE 
NUMERO 1 

330 DATA 7,15,24,22,34,40,39,18,9,15,5 



Este mes comenzamos una serie de 
artículos, cada uno de ellos con su 
respectivo programa, en los cuales 
se comentará paso a paso y línea por línea 
lo que en ella hay. Así intentamos dar 
también una parte de nuestro espacio a los 
que no son principiantes; pero tampoco 
saben mucho. El juego de este mes es muy 
sencillo. Primero explicaré de qué se trata 
y después lo comentaré. 

El juego trata sobre unos terroristas que 
han secuestrado un tren Tú tienes que 
conseguir que nadie sufra daño. Con tu 
mira apunta donde ellos están y ves ma- 
tándolos. Al final de la partida se te dirá 
la categoría obtenida. 



COMENTARIO 
DEL PROGRAMA 



10 En esta línea abrimos un fichero para 
salida de textos en el modo de panta- 
lla 2. 

20-30 Se reinicializa el color con fondo 



8,71, 198, 148, 146, 146, 192,240,24, 104,68 
, 20, 228, 72, 144, 241, 92, 226, 97, 169, 73, 20 
1 

340 DATA 3,5,9,17,23,40,52,38,33,16,19 

,8,15,53,126,237,192,64,64,64,224,16,4 

0,100,132,8,200,16,240,92,254,119 

350 DATA 7,8,8,8,15,24,54,36,33,36,19, 

8, 15, 53, 66, 129, 224, 208, 16, 208, 240, 24, 1 

08,36,132,36,200,16,240,172,66,129,24, 

24,24.255,255,24,24,24 

360 REH TERMINA DE LEER DATOS DE LOS 6 

RAFICOS 

370 TIME=0:PX=40:PY=108:P=1:REM BUCLE 
PRINCIPAL 

380 ON STICK(0)6OSUB510,520,530,540,55 

0,560,570,580 

390 GQSUB650 

400 IF TIME=>6000THENGOSUB720 

410 PX=INT(RND(1)I200):IF PX=<50THENPX 

=200 

420 N=INT(RND(l)t3) 

430 TIEM=INT(RND(l)tl00) 

440 PUTSPPITtt,(PX,PY),l,N 

450 FOR A=0TOTIEM:GOS'JB600:SOSUB650 

460 STRIG(0)QN:ON STRIGGOSUB620 

470 NEXT 
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blanco y letra negra. Se inicia la pantalla 
de gráficos del modo de alta resolución 
(2) y se indica el tamaño del sprite. 
50-100 Esta parte del programa se encarga 
de realizar los cuadros de la presenta- 
ción 

110-130 Bucle que lee los datos de las letras 
y las escribe pero no las escribe normal- 
mente sino a la mitad de lo normal (o 
sea de 4 en 4 puntos y no de 8 en 8). 

140 Realiza un bucle que efectúa un sonido. 

150 Esta línea indica al ordenador que lea 
un carácter del teclado y en esta ocasión 
sirve de pausa. 

160 Se remida el color con un borrado de 
pantalla y se cierra y abre de nuevo el 
fichero comentado en la línea 10. 

170 Hace una línea desde el punto (0,0) 
hasta el punto (255,10) pero como se 
le indica en el BF rellena un cuadro 
entre esas dos posiciones. 

180 Dibuja el sol y 16 rellena 

190-210 Dibuja el suelo. 

220-260 Dibuja la estructura externa del 
vagón. 

270 Bucle que dibuja las ventanas. 

280 Dibuja marco de la puerta. 

290 Hace él efecto de obertura de la puerta. 

300 Hace el efecto de cerrarse la puerta y 

termina de dibujar el escenario o paisaje. 
320 Manda al ordenador leer 104 datas de 

los sprites y las mete en la memoria de 

vídeo a partir de la dirección 14336, que 

es donde empieza la tabla 

de sprites. 
330-350 Datos de los sprites. 



370 Define las variables que después co- 
mentaré. 

380 Con esta línea le decimos al ordenador 
que si se pulsa cualquier tecla de cursor 
salte a una línea donde se darán valores 
para las posiciones de los sprites. Estas 
líneas van de la 510 a la 580. 

380 Manda al ordenador a la subrutina de 
descontrol del punto de mira situada en 
las líneas 650-700. 

400 Indica que si el tiempo supera los 2 

minutos salte a la línea 720. 
420 Da un valor aleatorio a n con el cual 

nos saldrá un muñeco diferente. 
430 Da un valor a la variable ITEM. 
440 Posiciona el sprite en el plano 1, en 

la posición horizontal px y vertical py, 

el color 1 y el número retenido en la 

variable n. 

450 Realiza uno de los bucles más impor- 
tantes del programa, en el que se le 
manda con el primer salto a la rutina 
de control de cursor, con el segundo a 
la subrutina de descontrol de mira. 

460 Sigue con el bucle comprobando si se 
ha pulsado la barra y si se ha pulsado 
hace un «alto. 

470 Se hace un next. 

480 Se posiciona el sprite de la mirilla en 
el plano 2 con color rojo y el número 
de sprite 3. 

490 Retorna a la línea 380. 

500-580 Líneas en donde se suman o res- 
tan posiciones según qué tecla se ha to- 
cado. 



600 A esta línea se la llama cuando se 
quiere leer el estado del cursor. 

620 A esta rutina se le llama cuando se 
pulsa la barra espadadora. Si se detecta 
alguna colisión entre sprites se salta a 
línea 710. 

630 Retorna! 

650-700 Rutina de descontrol de la mira. 
710 Rutina de colisión donde se eiumcntíin 
puntos. 

720-790 Rutina donde se ha la puntuadón 
al final de la partida y se espera que 
pulses una teda para comenzar de 
nuevo. 



LISTADO 

DE VARIABLES 



Time 



PX 
PY 

P 

X 
Y 
N 

R 
Pu 



Variable del tiempo. Si se divide 
el valor entre 50 nos da la can- 
tidad de segundos que lleva el 
ordenador o programa en mar- 
cha. Se utiliza en este caso para 
que la partida dure 2 minutos. 
Posidón horizontal del enemigo. 
Posidón vertical del enemigo. 
Es el paso que tiene que dar el 
sprite mira descontrolado. 
Posición horizontal de la mira. 
Posidón vertical de la mira. 
Numero de sprite a aparecer 
como enemigo. 

Número para escojer opciones. 



480 PUTSPRITE2, (X f Y),8,3 
m 6OTO3B0 

500 REM movimientos del cursor o mira 

510 Y=Y-1:RETURH 

520 Y=Y-1:X=X+1:RETURN 

530 X*X*1:RETURN 

540 X=X*1:Y=YH:RETURN 

550 Y«Y*1: RETURN 

560 Y=Y+1:X=X-1: RETURN 

570 X=X-1:RETURN 

580 X=X-1:Y=Y-1:RETURN 

590 REM rutina para que cuando los ene 

ligos esperen se pueda mover la mira 

600 ON STICK(0)6OSUB510,520,530,540,55 

#, 560, 570, 580: PUTSPRITE2, ( X, Y) , 8, 3: RET 

URN 

610 REH rutina de disparo 

620 BEEP:0N SPRITE GOSUB710: SPRITEON: R 

ETURN 

630 RETURN 

640 REH rutina para el descontrol del 
punto de lira 

650 P=INT(RND(l)t4):R=INT(RND(l)t4) 
660 IF R=1THENY=Y-P 
670 IF Rs2THENX=X-P 
IF R=3THENY S Y+P 



690 IF R=4THENX=X+P 
700 RETURN 

710 PU*PU+1:LINE(0,0)-(130,10),1,BF:PR 
ESET (1?, 1 ) : COLOR 5: PRINT41 , 'PUNTOS: ' ; P 
UsSPRITE OFF:GOTO410 
720 SCREEN0 

730 LOCATE10,10:PRINT"TU CATEGORIA ES 
DE:': 



740 IF PU=<2THENPRINT"MAL0' 

750 IF PU=>3AND PU=<6THENPRINT"REGULAR 

CILLO" 

760 IF PU=>6AND PU=< 10THENPRINT" BUENO' 
770 IF PU=>Í0THEN PRINT'HUY BUENO* 
780 A$=INPUT$(1) 
790 RUN 



Test de listados 



Para usar el Test de Listado que publicamos al final de cada programa debe car- 
garse el programa correspondiente publicado en nuestro número 7 del mes de 

noviembre, pág. 28. 
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- 64 


130 - 48 


250 


-165 


370 


-229 


490 


- 20 


610 


- 


730 - 19 


20 


- 99 


140 - 10 


260 


- 38 


380 


-224 


500 


- 


620 


- 23 


740 -250 


30 


- 23 


150 - 96 


270 


-158 


390 


- 39 


510 


-109 


630 


-142 


750 -230 


40 


- 


160 - 55 


280 


- 27 


400 


- 29 


520 


- 73 


640 


- 


760 -223 


50 


- 27 


170 -214 


290 


- 48 


410 


-245 


530 


-106 


650 


- 72 


770 - 73 


60 


- 15 


130 - 55 


300 


-232 


420 


- Z 


540 


- 72 


660 


-155 


780 - 96 


70 


- 93 


190 - 49 


310 


- 


430 


- 67 


550 


-108 


670 


-154 


790 -138 


80 


-209 


200 -236 


320 


-237 


440 


- 62 


560 


- 73 


680 


-156 




90 


- 31 


210 - 46 


330 


- li 


450 


- 91 


570 


-107 


6*0 


-155 




100 


- 58 


220 - 


340 


-186 


460 


- 19 


580 


- 74 


700 


-142 




110 


- Bl 


230 -195 


350 


-249 


470 


-131 


590 


- 


710 


- 76 


TOTAL: 


120 


- 39 


"240 - 43 


360 


- 


480 


-108 


600" 


- 78 


720 


-214 


7522 
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Alberto Orante 



PROGRAMA GANADOR DEL CONCURSO DE VERANO 



_ _ . ~ k . ~ C o n Dragons, un videojuego de 

nfj A p f\ K I P aventuras, Alberto Orante ha 

) |\ A l T l J|\|i conseguido la primera posición 

U lYTA W ^/ I W en nuestro concurso de verano 



10 

20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
1 60 
170 
180 
190 
200 
210 



DRAGÜNS 



PROGRAMADO POR ALBERTO ORANTE 



EDITADO POR MSX CLUB 



ícl 19S7. 

• 

CLEAR 400 
DEFINTA-Y 
DIME ( 14) 
OPEN"GRP: "AS#1 
COLOR 8,0,0 
SCREEN2,2,0 

■ CARGA DE DATOS GRAFICOS A 
* LA MENORIA 



F0RI=6144T06752: VPOKEI , 0: NEXT 
C=7:N»65:M=152:A*="Un Momento P 
or-f abor » : GOSUB3880 
220 F0RY=16T0144STEP64: X=0 
230 FORI=64TD90: GOSUB240: X=X+1 : GOSU 
B240: X=X+7: NEXT: NEXT: GOTO250 
240 PSET ( X , Y) , PO I NT ( X , Y ) : PR I NT# 1 , CH 
R$(I) : RETURN 
250 FORI=0TO2:FORO=0TO2 
260 PSET ( 90+0 , 35+ I ) , : PR I NT# 1 , " DRA 
GONS" : NEXT: NEXT 

270 COLOR0:PSET(91,36) ,0:PRINT#1, " 

DRAGONS" 

280 RESTORE4490 

290 F0RI=8T0191:READA*,B* 

300 VPOKE I . VAL ( " ?<H " +A* 5 : VPOKEBASE ( 1 

1> + I,-VAL<"?>.H"+B*> : NEXT 

3 1 RESTORE : FOR I =2056TO2239 : READ A$ , 

B* 

320 VPOKEI , VAL ( "?<H" +A*> : VPOKEBASE ( 1 

1 ) + 1 , VAL < " m " +B* ) : NEX T 

330 RESTORE : FOR 1=41 04TO4287 : READA* , 

B* 

340 VPOKE I , VAL ( " ?<H " + A* ) : VPOKEBASE ( 1 
1 ) + 1 , VAL ( " m " +B* ) : NE XT 
350 GOSUB4250 
360 1 








370 ? PRESENTACION 
380 * 

390 GO3UB4450: LINE<0, 1.77)- (256, 192) 
,0,BF 

400 B=6848+9: A$=" " : GOSUB3920 

4 1 B= 6848-^4 1 : GOSUB3920 

420 B=-6848 + 23: A*=" " : GO5UB3920 

430 B=--6S48+55: GOSUB3920 

440 B=6873 : G0SUB4 1 30 

450 IFZP>2STHEN2S-2P 

460 F=128: FOR I --6272T06336 : VPOKEI , F: 
F=F+ 1 : NEXT 

470 B=6567 : A$= " PRESS FIRE TO STAR " : 
GOSUB3920 

480 I FSTP I G ( > «rr 1 THENJ =0 : GOTO540 
490 I FSTR I G ( 1 ) =- 1 THEN J= 1 : GOTO540 
500 GOTO480 
510 ' 

520 ' DIBUJO DEL MARCADOR 
530 ' 

540 V=3: ZP=0: GOSUB4450 
550 C=7:N=10:M=177: A*=" SCORE":GO 
SUB3880 : C=8 : N= 1 : M= 185 : A*= " H I -SCORE 
" : GOSUB3880 

560 C=5 : N=136: M=177: A$~" LE VEL " : GOSU 
B3380 : C-6 : N= 1 36 : M== 1 85 : A$= " SCREEN " : G 
OSUB3830 



— 
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570 COLORIS: PSETÍ 123, 137) ,0:PRINT#1 
, "0123456789 M 

580 PSET(129, 1.37) , 15:PPINT#1 , "01234 
56789" 

590 CQLOR98 PSET (208, 177) , 0:PRINT#1, 

600 H=0 tHiU *Q : C ( 5 ) =0 
6 1 B=634S+9 : C=6 | 2=0 í GOSUB3900 
620 B=6843+41 : C=6: Z=ZS : GOSUB3900 
630 C (5) =0: RESTORE 4660 

650 6=6878 s GOSUB4 1 30 : K= : H=l •!+ 1 : M ( 1 ) 
¡*H<1>+1 

660 B=6S4S+23: C=2: Z=INT(H/12) *i : GOS 
UB3900 

670 B=6848+35: C = 2: Z-H: GGSUB3900 
680 FOR l~0Tü 1 : PUTSPR ITEI, <0,~16>,0 
, 30:NEXT 
690 ' 

700 ? DIBUJO DE LA PANTALLA 
710 ' 

720 B=BASE(10) 

730 F0RI=1T011 : READA*: A$=RIGHT* < STR 

ING* (16, "0")+BIN*(VAL("S<H"+A*) ) , 16) 

740 FORü= 1 TOLEN ( A* ) 

750 A=VAL(MID*(A*,Q, 1) ) 

760 IFA= 1THENGOSUB870 

770 IFA=0THENGOSUB4130 

780 B=B+2: NEXT: B=B+32: NEXT 

790 IFH(1)=11THEN2810 

800 ? 

810 • COLOCACION DE OBJETOS 
820 ' 

B30 READA*: B=VAL < "S>.H"+A*> : GOSUB3980 
840 FOR I = 1 T04 : READ A* : B=VAL ( " W " +A* ) 
: GOSUB4040:NEXT 

B50 RE ADA*: B=VAL ( " ?<H " +A$ ) : GOSUB4010 

860 GOTO950 

870 IFH(1)=11THEN900 

880 ONINT (H/ 1 1 ) •+• 1 G0T04 1 00 , 4 1 60 ,4190 
, 4070 

890 RETURN 

900 ON I NT ( H / 1 1 ) G0T04 1 00 , 4 1 60 . 4 1 90 , 4 

070 

910 RETURN 
920 ' 
930 
940 
950 

970 
980 
990 

360 , 

1 000 
1010 
1440 

1020 



' INICIO DEL 



X = 16 
H (5) 
IFH( 
IFH ( 
U=l: 
1370 
IFH 
U=2 
145 
ONS 



Y=31:S=0 
=INT(H/Í1>+1 
5)=1THENH(4)=4 
5)=3THENH'4)=8 
ONH <1> GOSUB 1330, 1340, 1350, 1 
, 1380, 1390, 1400, 1410, 1350 
< 5 > = 1 ORH ( 5 ) =3THEN 1 020 ' 
:OMH(1)GOSUB1350, 1420, 1430, 
0, 1420, 1460, 1470, 1480, 1490' 
PR I TEGOSUB 1 1 80 : SPR I TE ON 



1030 GOSUB 4370 

1040 FORI=0TO15: PUTSPR ITE0', (X,Y),I, 
S: FORO=1TO50: NEXT: NEXT 
1050 PUT SPRITE 0,<X,Y),4,S 
1060 PLITSPRITE1, (U(l') ,D(1) ) , 13,P(1) 
1 070 I FH ( 5 ) = 1 ORH ( 5 ) =3THEN 1 1 00 
1080 PUTSPR ITE2, (U(2) ,D(2) ) ,9,P(2) 
1 090 U=2 : ONH ( 1 ) GOSUB 1 540 , 1 780 , 1310, 
1540, 1850, 1780, 1930, 1890, 1960, 1990 
1100 U= i : ONH C 1 > GOSUB 1540, 1530, 1540, 
16^0, 1660, 1690, 1720; 1750, 1780, 1540 
1110 5=STICK(J) 

1120 ONGGQSUB2100, 1140,2140,1140,21 
30, 1 i 40, 2220 

1140 RETURN 1130 
1150 *■ 

1160 ' MUERTE DEL CABALLERO 
1170 ' 

1180 FORI=0TG3:PUTSPRITEI, '0.-!.a>,0 
,30: NEXT 

119® PUTSPR I TE0 , < X , Y ) , 1 2 , 23 
1200 GOSUB 4310 
1210 ^V-l 

1220 LINE(20G, 177) -<23?, 135) ,0,BF 
1230 IFV=0THEN2720 
1240 C0L0R9: PSET (203, 177) 
, RIGHT$ £ "«MN» " „ V*2+3> 
1 250 FOR I =0TÜ500 : NE X T 
1260 PUTSPR I TE0 , ( , - 1 6 ) , , 30 

12^0 ifc .;s) -ithemreturn' 

1280 RETURN950 
1290 > 



1300 

1310 



VAR I ABLE3 DE INICIO 
DE LOS- ENEMIGOS 



1 330 U CJ) "123: D (U) m i 5 : P í U ) =8 : R ( ü ) 
H(4) : RETURN 

1340 U(U)<!24:D<U>-i4.3:P<U>=i0:F<U> 
=-H(4; : RETURN 

1350 U(U) =224:D(U)=I43:P<U)=8:PíU>= 
-H(4) s RETURN 

-U360 Uaj)=160:D<U)=79:P(U)=26:R('J) = 
+HÍ4) : RETURN 

1370 U.(U)-16iD-:U;=143:P¿U)=l^R(U) = 

Htf .-RETURN 
1380 U(U)=224:D(U> =79: P (U) =14 : R ÍU) = 
-HÍ4) : RETURN 

1390 U(U)=224:D(U)--=lllsF (U)=24:R(U) 
— H (4): RETURN 

1400 U(U)=192:D(U)=111:P(U)=10:R(U) 
=~H<4> ."RETURN 

1410. U<U)=16:D(U)=79:P(U)=12:R(U)=+ 
H(4):*RETURN 

1420 U<U)=16:D<U)=15:P(U)=12:R<U)=+ 
H<4> : RETURN 

1430 U<U)=48:D<U)=31:P<U)=26:R<U)=+ 
H(4) : RETURN 











2240 X=X-8: IFS=6THENS=7ELSES=6 
2250 RETURN1050 
2260 ? 

2270 ' RUTINA DE DETECCION DE 
2280 9 OBSTACULOS Y OBJETOS 
2290 ' 

2300 B=BASE < 1 ) + 1 NT < Q /8 ) + < I NT ( W /8 ) * 
32) : L=VPEEK (B) 

23 10 I FL >0ANDK= 1 THENRETURN2350 
2320 IFL>4ANDK=0THENRETURN2350 
2330 I FT=0THENSOUND8 , 12: SOUND0, 255: 
SOUND0, 100: SQUND0, 0: T=1ELSET=0 
2340 RETURN 

2350 IFL>9ANDL<14THEN2420 
2360 IFLM3ANDLX 18THEN2530 
2370 I FL >0 ANDL < 5THEN2600 
2380 RETURN 
2390 * 

2400 ' DETECCION DE LA LLAVE 
2410 ' 

2420 IFL=10THEN2460 

2430 IFL=11THENB=B-1:GOTO2460 

2440 IFL=12THENB=B-32:GOTO2460 

2450 IFL=13THENB=B-33 

2460 G0SUB4 1 30 : GOSUB4330 

2470 B=6878 : GOSUB40 1 : K= 1 

2480 ZP=ZP+1000:B=6848+9:C=6: Z=ZP:G 

OSUB3900 

2490 RETURN 

2500 ' 

2510 ' DETECCION DE LA MONEDA 
2520 ' 

2530 IFL=14THEN2570 

2540 I FL= 1 5THENB=B- 1 : GOTO2570 

2550 IFL=16THENB=B-32: GOTO2570 

2560 IFL=17THENB=B-33 

2570 G0SUB4 1 30 : GOSUB4350 

2580 ZP=ZP+500: B=6848+9: C=6: Z=ZP: GO 

SUB3900 

2590 RETURN 

2600 GOSUB4390 

2610 RETURN640 

2620 7 

2630 ' SE ACABAN LOS CUATRO NIVELES 
2640 » 

2650 GOSUB4450 

2660 B=6379: A*= "ENORABUENA" : G0SUB39 
20 

2670 B=643B: A*="HAS SALVADO EL REIN 
O" : GOSUB3920 

2680 FORI=0TO10000:NEXT:GOTO 600 
2690 ' 

2700 ? FINAL DE LA PARTIDA 
2710 * 

2720 FOR I =0TO8 : PUTSPR I TE I , ( , - 1 6 ) „ 

,30:NEXT 

2730 GOSUB4450 

2740 B-6379 : A*= " GAME OVER" : G0SUB392 




2750 FORI=0TO10000:NEXT 
2760 RETÜRN 390 
2770 >. 

2780 ' RUTINA DE LUCHA DEL 
2790 ' CABALLERO CON EL DRAGON 
2800 ■ 
2810 E ( 1 ) =3 

2820 E(2)=176:E(3)=30:E(4)=16:E(5)= 

18:R=-4:S=2:E<9)=0:E < 10) =0 

2830 X=120: Y=150:SPRITEOFF 

2340 ONSPR I TEGOSUB3480 : SPRITEON 

2850 PUTSPR ITE0 , <X,Y) ,4,S 

2860 PUTSPR ITE3, (E(2) , E (3) ) . E ( 1 ) „ E < 

4) 

2870 PUTSPR ITE4 , <E<2) ,E<3)+16),E<1> 
, 17 

2880 PUTSFRITE5, (E (2) + 16. E (3) +14) « E 
<1> ,E<5> 

2890 IFC (5) =0THENGOSUB3810 

2900 G=STICK(J) 

2910 IFG=0THENS=2 

2920 IFG-3THENGO3UB3140 

2930 IFG=7THENGQSUB3170 

2940 IFSTRI6 ( J ) -- 1 THENGOSUB3390 

2950 IFE<9) = ÍTHENGOSL'B3240 

2960 I FE ■ < 1 ) = 1 THENGÜSUB33 1 

2970 IFE •: 10) =0THENGOSUB3420 

2980 GOSUB3030:GCTO2850 

2990 ' 

3000 ' RUTINA DE MOVIMIENTO 
3010 9 DEL DRAGON 
3020 * 

3030 E<2)=EÍ2)+R 

3040 IFE (5) =18THENE (5) =20ELSEE (5) =1 
8 

3050 E'.:ó)-E(6) *i: IFE\6)=4ANDE(4)=16 

THENE ( 4 * = 1 9 : E ( 6 ) =0 : 6Í3TÓ307* 

3060 I FE ( 6 ) =4ANDE 4 ) ■ 1 9THENE i 4 ) * t£ j 

E <6)=0 

3070 IFE (2) =56ANDR=-4THENR=+4 
3030 IFE ( 2) =-176ANDR=+4THENR=-4 
3090 RETURN 
3100 » 

31J.0 ' ' RUTINA DE MOVIMIENTO 
3120 " DEL CABALLERO 
3130 ' 

3140 IF3=4THENS=5ELSEB=4 

3150 IFX=176THENRETURN 

3160 X=X+4: RETURN 

3170 IFS=6THENS=7ELSES=6 

3180 I FX=56THENRETURN 

3190 X-Y.-4 : RETURN 

3200 * - 

3210 ■ RUTINA DE MOVIMIENTO 
3220 DE LA ESPADA 
3230 ' 

3240 E<7)=E(7>-8:PUTSPRITE6, CE<#5 ,E 
(7) ) ,7,22 

3250 IFE(7)=14THENPUTSPRITE6, (0,-16 



— 



— 




1440 UCU)=192:D(U)=15:P<U)=8:R<U)=+ 
H(4) : RETURN 

1450 U CU) =176: D CU) =127: P CU) =8: R CU) = 
-H(4) : RETURN 

1460 U(U)=16: DCU)=143:P<U)=26:RCU>= 
+HC4) : RETURN 

1470 UCU)=144:DCU)=15:PCU)=8:RCU)=- 
H(4) : RETURN 

1480 U CU) =224: D CU) =143: P CU) =10: R CU) 
=-HC4> : RETURN 

1490 U CU) =208: D CU) =143: P CU) =6: R CU) = 
-H(4> : RETURN 
1500 ' 

1510 • RUTINAS DE MOVIMIENTO 
1520 ' DE LOS ENEMIGOS 
1530 ? 

1 540 I FP ( U > =8THENP ( U ) =9ELSEP ( U ) =8 
1550 IFD<U)=15ANDRCU)=-HC4)THENRCU) 
=+HC4) 

1560 IFD CU) =143ANDR CU) =+H C4) THENR (U 
)=-H(4) 

1570 D (U> =D (U) +R (U) : RETURN 

1 580 I FP ( U ) = 1 0THENP ( U ) - 1 1 ELSEP ( U ) = 1 



1590 IFU CU) =80ANPR (U) =-H C4) THENR (U) 
=+H(4) 

1 600 IFU CU) =224 ANDR < U ) =+H ( 4 ) THENR ( U 
>=-H(4) 

1610 U ( U ) =U < U ) +R < U ) : RETURN 

1 620 I FP ( U ) =26THENP ( U ) =27ELSEP < U ) =2 

6 

1 630 I FU ( U ) =80 ANDR ( ü) =-H ( 4 ) THENR < U ) 
=+H(4) 

1 640 I FU ( U ) = 1 60 ANDR ( U ) =+H ( 4 ) THENR ( U 
)=-H(4) 

1650 U(U)=U(U)+R(U) : RETURN 

1660 IFP (U) =12THENP (U) =13ELSEP <U> =1 

2 

1670 IFUCU)=224THENU(U)=16 
1680 U < U ) =U C U ) +R C U ) : RETURN 

1 690 I FP ( U ) = l 4THENP ( U ) = 1 5ELSEP ( U ) = 1 
4 

1700 IFU(U)=16THENU(U)=224 

1710 U(U)=U(U)+R<U> : RETURN 

1 720 I FP ( U ) =24THENP < U ) =25ELSEP C U ) =2 

4 

1730 IFU -CU) =96THENU (U) =224 

1740 U(U)=U(U)+R(U) : RETURN 

1750 IFFCU)=10THENPCU)=11ELSEP(U)=1 



1 760 I FU CU) * 1 6THENU « U ) = 1 92 
1770 U ( U ) =U ( U ) +-F: í U ) : RETURN 
1 780 I FP. ( U ) = 1 2THENP ( U ) - 1 3EL5EP ( U ) = 1 

1790 IFüCU) =224THENU LU) =ló 

■ 



180¡? UCU)=UCU)+RCU> : RETURN 

1 8 1 IFP CU) =26THENP • U ) =27ELSEP ( U ) =2 

6 

1 820 I FD ( Lj ) =3 1 ANDR ( U ) =-H ( 4 ) THENR ( U ) 
=+H"C4) 

1 830 IFD CU) =1 27 ANDR { U ) =+H ( 4 ) THENR ( U 
) =-H (4) 

1 840 D í U ) =D « U ) < U ) : RETURN 
1 S50 I FP ( U ) =STHENP ( U ) =9EL3EP ( U ) =S 
1 860 IFD (U ) =1 5 ANDR: ( U ) =-H £ 4 ) THENR < U ) 
=+H (4) 

1 870 IFD (U) = 1 27 ANDR C U ) =+H C 4 ) THENR ( U 

)=-H(4) 

1 880 D ( U ) =D < Ü ) -í-R ( U ) : RETURN 

189i* IFP CU) =9THENP ( U ) =9ELSEP ( U ) =8 

1 90;? IFU CU) =t 6 ANDR ( U ) =-H C 4 ) THENR < U ) 

-+HC4) 

1910 IFU ( U ) = 1 44 ANDR < U ) «*H ( 4 ) THENR ( U 
>••=-!-! (4) 

1 920 U ( U ) =U •'. U ) +R ( U )• : RETURN 

1 930 I FP ( Li ) =26THENP < U ) =27EL5EF ( U > =2 

6 

IFU CU) =224THENU ( U > = 1 6 
U(U)=U(Ü)+R<U) : RETURN 
IFP CU) =10THENP CU) =1 i ELSEP CU) »1 



1940 
1 950 
1960 


1970 
1 930 
1990 
2000 
20 1 
2020 
2030 



IFU (U) =4BTHENU CU) =224 
U (U) =U (U) -*-R CU) s RETURN 
IFP CU) =4THENP CU) =5: GOTO2030 
-IFP CU) =5THENP CU) =4: GGTO2030 
IFP CU) =6THENP í U) ="?: GGTO2030 
IFPCU)=7THENPCU)=6 
IFU CU) =16ANDR (U) =-H C4) THENR CU) 
=+H(4) :P(U)=4 

2040 IFU CU) =208ANDR CU) =+H <4) THENR CU 
) =-H (4) :PCU>=6 
2050 UCU)=U(U)+RCU) : RETURN 
2060 ' 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 



2230 



' RUTINAS DE MOVIMIENTO 
' DEL CABALLERO 

Q=X+1: W=Y-2:GOSUB2300 
Q= X + 1 5 : W=Y-2 : GOSUB2300 
Y=Y-8: IFS=2THENS=3ELSES=2 
RETURN 1050 

Q=X+17: W=Y+1 : GOSU.B2300 
Q=X+17: W=Y+16: GOSUB2300 
X=X+8: IFS=4THENS=5ELSES=4 
RETURN 1050 

Q=X+2: W=Y+17:GOSUB2300 
Q=X+15: W=Y+17: GOSUB2300 
Y=Y+8: IFS=0THENS=1ELSES=0 
RETURN 1050 
Q=X- 1 : W=Y+ 1 : GOSUB2300 
Q= X - 1 : W= Y+ 1 6 : GOSUB2300 



Programa 

— 




> ¡ ,0,30:E(?)=0 
3260 RETURN 
3270 ' 

3230 ' RUTINA DE MOVIMIENTO 
3290 ' DE LA BOLA DE FUEGO 



3310 E < 1 1 ) ~E ( i -i ) +B.: PUTSPR I TE7 , (EÜ2 
) .E(ll) J .3.21 

3320 IFE ( 1 1 ; -• 1 5BTHENE í 1 ) mé 
3330 RETURN 
3340 * 

3350 ? RUTINAS DE EFECTOS .SONOROS 
33o0 " Y COORDENADAS INICIALES DE 
3370 r LA ESPADA Y LA BOLA DE Fu! ÉSE 
3330 

3390 I FE i 9 ) = 1 THEMRETURN 

3400 SOUND0 . 20 : SÜLMD" , S i SOUNDS ,16:3 

DüND12,5: 30UMD13, LÉ 

3410 E(9)=i:E(3) -^X:E : " 7 > * 1 34 : FETJPN 
3420 SOUND0 • 255 : SOUNDS , 1 t : SCUND 1 2 , 2 
: S0UND7 , 7 : S0UND6 , 30 i SOUND 17. 15 
3430 E ( 10>=i: E í 12) -E '2) : E < 1 i S =62: RE 
TURN 
3440 11 

3450 ' FUTI NA DE* COLISION DE 
3460 r 3FRITES 
3470 ? 

3430 3PRITE0FF 

3490 IFE :7) >E (3) +33CRE (7) \E (3) --3 THE 
N3500ELSE3530 

3500 I FE vil) >Y+ 1 60RE i 11) . Y - 1 5THEN35 
40ELSE3510 

3510 IFE- 12) ■=:: X ANDE ( 1 2) ==< X +2 1 THEN37 
30 

3520 GOTO3540 

3530 I FE ( 8 ) -- >E ( 2 ) - 2ANDE ( 3 ) E •' 2 ) +30 
THEN3530 

3540 5PRITE0N: RETURN 
3550 ' 

3560 ■ DRAGON TOCADO 
3570 ' 

3580 PUTSPR ITE6, ( 0, - 1 6) , 0, 30: E (9 ) =0 
3590 E(7)=-16 

3600 SOUNDS ,16: SOUND0 , 255 : S0UND7 , 7 : 

30UND6 , 30 : SOUND 12,1 00 : SOUND 1 3 , 

3610 E(1)=E(1)+1: IFE(1)=15THEN3630 

3620 SPR I TEON : RETURN 

3630 FORI=0TQ7000: NEXT 

3640 ZP=2P+4000: B=6848+9: C=6: Z~ZP: G 

OSUB3900 

3650 FOR I = 1 T08 : PUTSPR ITEI , ( . - 16), 

, 30 : NE X T : S=2 : S0UND7 , 8 : H ( i ) =0 

3660 RUT SPRITE0, (X, Y) ,4,S 

3670 FOR l=0TQ 1 00 : NEXT 

3680 IFS=2THENS=3EL3ES=2 

3690 IFX<=118THENX=X+1 

3700 IFX>«il8THENX=X-l 



3710 I F Y > -~ 1 6 THE N Y ~ Y -- 2 
3720 IFY=<-16THEN630 

3730 SOUNDS ,12: SOUND0 , 255 : 3OUND0 , 1 
0:SOUND0, 
3740 GOTÜ3660 
3750 ' 

3760 ? MUERTE DEL CABALLERO 
3770 > 

3730 SOUND 7 f B ! PUTSPR I TE7 , ( , - 1 6 ) , , 
30 

3790 PUTSPR ITE6, (0,-16), , 30 : E ( 9 ) =0 
:EU0)=0:E<11) — 16 

3800 GOSUB1 i 90 : SPR I TEON : RETURN2S20 
3810 SOUND 1 f 1 : FORI=255TO50STEP-25: S 
OUND8 :l 1/25: FORO=ITOI --40STEP--1 : 5ÜUND 
0, 255-0: 3OUND0, 0: NEXT: NEXT: SOUND 1 , 
: 3OUND0,0 

3820 C<5/«t: FOR I =0TO i 000 : NEXT: FETUR 
N 

3830 8 

3840 : ' RUTINAS DE IMF RES ION DE 
3850 ' CARACTERES ALFANUMER I CQS 
3860 ' I NUMERICOS EN S CREEN 2 
3870 ' 

3880 COLORO: FOR 1= 1 TOLEN (A*) : G0SUB33 
90: N=-N+l : GOSUB3890: N=N+6: NEXT: RETUR 
N 

3890 PSET ( N „ M ) , PO I NT ( N , M ) : PR I NT# 1 , M 
ID* (A*, I , 1 ) : RETURN 

3900 B*=STR*<Z) : A*=RIGHT* <B*, LEN <B* 
) -1 ) 

3910 A*=RIGHT* ( " 000000" A*, O 

3920 FOR I = 1 TOLEN ( A* ) : A=ASC ( M I D* ( A* , 

1,1)): VPOKEB, A: B=B+1 : NEXT: RETURN' 

DE COLOCACION DE 
OBSTACULOS Y OBJETOS 



3950 
3960 

3970 ' PASAD I ZG 
3980 VPOKEB , 1 : VPOKEB + 1 , 2 
3990 VPOKEB+32, 3: VpOKEB+33, 4: RETURN 
4000 'LLAVE 

4010 VPOKEB, 10: VPOKEB+1 , 1 1 

4020 VPOKEB+32, 1 2 : VPOKEB+33 , 13s RETU 

RN 

4030 ' MONEDA 

4040 VPOKEB ,14: VPOKEB + 1,15 

4050 VPOKEB+32, 1 6: VPOKEB+33. 17: RETU 

RN 

4060 ' PEDRUSCOS 

4070 VPOKEB , 6 : VPOKEB+ 1 , 7 

4080 VPOKEB+32, 8: VPOKEB+33, 9: RETURN 

409$ ' LADRILLOS 

4 100 VPOKEB , 5 : VPOKEB+ i , 5 

4110 VPOKEB+32 , 5 ¡ VPOKEB+33 , 5 : RETURN 

4120 > ESPACIO 

4 1 30 VPOKEB , : VPOKEB+ 1 . 
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4140 VPOKEB +32, 0: ViPOKEB+33, 0s RETÜRN 
4150 ' PLANTA 

4 160 VPOKEB ,18: VPOKEB+ 1,1? 

4170 VPOKEB+32, 20: VPOKEB+33, 21 : RETU 

RN 

41B0 ' MATORRAL 

4 1 ?0 VPOKEB , 22 : VPOfcEB+ 1 , 23 

4200 VPOKEB-i-32, 23: VPOKEB+33, 22: RETU 

RN 

4210 ? 



LECTURA DE LOE DATOS 
DE LOS SPRITE3 



4220 
4230 
4240 

4250 RESTORE4S00 

4260. FQR 1 = 1 4336TQ 1 523 1 : RE ADA*: VPOKE 
I, VALÍ "?.:H"+A*> : NEXT 
4270 RETURN 
4280 * 

4290 ? RUTINAS DE EFECTOS SONOROS 
4300 ' 

4310 SOUND1 , 2: FORI=255TQ50STEP-1 : SO 
UNDS, 10:SOUND0, I : NEXT: FORO=10TO0STE 
P-l : FORI=50TO0STEP-1 : SOUND0, I : NEXT: 
S0UND8 , O: NEXT: SOUND0 , : SOUND 1 , ' 
4320 RETURN 

4330 FORO=10TO0STEP-1 : FORI = 1 00TO50S 
TEP- 1 : SOUND0, I : NEXT: SOUNDS, O: NEXT: S 
ÜUND0,0 
4340 RETURN 

4350 F0RZ=11T02STEP-. 1 s SOUNDB, Z : SOU 
ND0 , 200 : SOUND0 , 1 80 : SOUND0 , 1 00 : NEXT : 

4360 RETURN 

4370 FORI=0TO2005TEP30: FQRQ= I TO I +50 



: SÓUÑDá; 10: SÓÜÑD0,"ü*: ÑÉXT: 
¡ 
4330 RETURN 

4390 FORI=250TO50STEP-30: FCRO=ITOI- 
50STEP- 1 a 30UND8 ,10: SQUND0 , O: NEXT: NE 
XT:SOUND0,0 
4400 RETURN 
4410 ' 

4420 ' RUTINAS DE BORRADO DE 
4430 - PANTALLA 
4440 * 

4450 FORI =6144706848: VPOKEI , 0: NEXT: 

RETURN 

4460 ' 

4470 'DATAS GRAFICOS 
4480 ' 

4490 DATA FF, Fl , 8F, F3, BF, F3, FF, F3, F 

F,F3,F9,F4,FD,F1,FB,F1 

4500 DATA FF,F1,F1,F3,FD,F3,FF,F3,F 

F,F3,9F,F4,BF,F1,DF,F1 .FB.F1 ,FD,F1, 

FE,F1,FF,F1,FF,F1,BF,F3,3F,F3,FF,F1 

4510 DATA DF,F1,BF,F1.7F,F1,FF,F1,F 

F,F1,FD,F3,F1,F3,FF,F1 

4520 DATA EF, 7 1 , EF , 4 1 , EF , 4 1 , , 1 1 , FE 

,FS, E6,F8,E7,F8,9B,F8,FD,F8,FF,F1 
4530 DATA FS, El ., FE, El , EB, E4 , 75, E4, B 
B,E4,F5,E4,FB,E4,B5,E4,EF,F8,FE,F8, 
57,F8,EB,FS,F7,A8,7F,A1, 1F, A1,0, 11 
4540 DATA FB , E4 , F5 , E4 , FB , E4 , F5 , E4 , E 
B , A4 , FE , A 1 , DC , A 1 , , 11 

4550 DATA 0,11,0,11,0,11,0,11,38,71 
,6C, 71, 47, 71,47,71 

4560 DATA 0,11,0,11, 0, 11,0,11,0,11, 
1C,71 ,FE,71,FE,71,6C,71,3B,71,0, 11, 
0, 11,0, 11,0, 11,0, 11,0, 11 
4570 DATA 14,71,14,71,0,11,0,11,0,1 
1,0, 11,0, 11,0, 11, 7, Al, 18, Al, 27, Al, 5 

D, Al, 58, Al , B5, Al , B5, Al ,B8, Al 

4580 DATA E0,.A1 , 18, Al , E4, Al , BA, Al , 1 
A, Al, AD, Al , BD, Al, IB, Al , BD, Ai , BD, Al, 
B5, A 1,58, Al, 5D, A 1,27, Al, 18, Al, 7, Al 
4590 DATA AD, Al , AD, Al , AD, Al , 1 A, Al , B 
A , A 1 , E 4 , A 1 , 1 8 , A 1 , E , A i , 7 8 , 8 1 , F E , 8 1 , 
CF,8B,C7,8B,FE,81,7C,81,C,21,66,21 
4600 DATA 0,21*0,21, 1C, 21, 7E, 21, F0, 
21,EE,21,DF,21,DB,21,F7,21,DF,21,8F 
,21,37,21,7F,21,5F,21,F,21,F,21 
4610 DATA DB,21,F0,21,EC,21,DE,21,F 
F,21 ,E1 ,21 ,C0,21 , C0,21,6D,C1,FE, CF, 
D2, CF,EB,CF,57,CF, AE,CF,D5,CF,7F,C1 
4620 DATA B2, Cl , 6F, CF, BD, CF, 7B, CF, D 

E, CF,FB,CF,5D,CF,EE,CÍ 
4630 " 

4640 ■ datas pantallas 
4650 ' 

4660 DATA FFFF, 8101 , BD7D, A005, AF75, 
81 15, BD55, A041 , AD7D, 3101 , FFFF, 1842, 
184C, 18DC, 1954, 1A4C, 1A5C 
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4670 DATA FFFF , 300 i , BDED , 9DED , 8C2D , 

8FA1 , AFAF, Al Al , B8BD , 880 1 , FFFF, 1A46, 

18SC, 18C4, 195C, 19CC, 1A56 

4680 DATA FFFF, 93C9, A525, A895, AA55, 

8241 , AA55, A915, A4A5, 93C9, FFFF, 1890, 

1844, 185A, 1A0E, 1A44, 1A5A 

4690 DATA FFFF , 881 1 , AA55 , A245 , AA55 , 

881 1 , AA55, A245, AA55, 881 1 , FFFF, 1 A5C, 

184A, 1854, 1A4A, 1A54, 1944 

4700 DATA FFFF , 850 1 , 85CF , 840 1 , 85EF , 

852 1 , ED AF , EC2 1 , EFEF , 800 1 , FFFF , 1 950 , 

184C, 18DC, 1942, 1A5C, 1848 

4710 DATA FFFF, 800 1 , BBDD, 83C1 , EFF7, 

8001 , BDBD, 8DB1 , 8C31 , BC31 , FFFF, 19D8, 

18CA, 19C6, 1A50, 1A5C, 1A06 

4720 DATA FFFF, BE01 , BE7D, A0C5, ACDD, 

A2C5 , 96B5 , C40 1 , F7FD , 800 1 , FFFF , 1 8DS , 

184E, 1850, 1B8E, 1890, 1992 

4730 DATA FFFF, 8021 , 8E6D, B82D, 9BBD, 

C89D, E7CD, 8005, FEFD, FE01 , FFFF, 18D6, 

1890, 19C6, 1A1C, 1A4E, 194E 

4740 DATA 3F, FFA1 , 80EF, 8081 , FD81 , 80 

! , BB4 1,8941, EF77 , E00 1 , FFFF , 1 85C , 1 8 

84, 191C, 18D2, 1A5C, 19CC 

4750 DATA FFFF , 803D , BFFD , A0 1 D , A3B 1 , 

A3B 1 , B805 , 8805 , EFFD , 800 1 , FFFF , 1 8D4 , 

18C6, 19CA, 19CC, 19CE, 184E 

4760 DATA FE7F , E007 , C003 , 800 1 , 800 1 , 

3003 , C003 , C003 , C003 , E007 , E007 

4770 ? 

4780' 'datas sprites 
4790 7 

4800 DATA i , 3 , 27 , 25 , 25 , 25 , 25 , 27 . 70 , 
3F,33,20,3,3,2,3,F0,F8,F8,58,40, 3E, 
36 , A2 , 36 , 96 , DC , , A8 , B0 , 80 , ,1,3, 27 , 
25, 25, 25, 25, 27, 70, 3F, 33, 20, 2, 3, 0,0, 
F0 , F8 , F3 , 58 , 40 , 3E , 36 , A2 ,• 36 , 96 . DC , , 
B8, 38, 28, 30 

4810 DATA 7, E, E, D, F, 6F, 60, 6F, 6F, 6F, 
2F, 30, E, E, A, C, C0 , E0 , E4 , 64 , E4 , E4 , 4 , E 

E, FC,EC,E4,0, A0,C0,0,0,7,E,E,D,ÓF, 6 

F , 60 , 6F , 6F , 6F , 2F , , A , C , , , C0 , £0 , E4 
, 64,E4,E4,4,EE,FC,EC,E4,0,E0,E0. A0, 
C0 

4820 DATA 7, B, 15, 15, 15, 15, 5, 15, E, 15 
, IB, 0, E, E, A, C, 80, E0 , A0 , A"0 , A0 , AS , AS , 
ES, 1S,F3,DS, 10, A0,E0, 0,0,7, B, 15, 15,. 
15, 15,5, 15, E, 15, 1B,0, A,E,0,0,80,E0,^ 
A0 , A0 , A0 , A8 , A8 , E3 , 1 3 „ F8 , D8 , 1 , E0 , E0 
f A0 , C0 

4330 DATA 3 , F , A , A , A , 20 , 3D , 3D , 3C , 3D , 

i B , , 5 , 7 , , , C0 , E0 , B0 , D0 , D0 , B0 , F , E 

, , F0 , F0 , ,70, 70 , 50 , 60, 3 , F ,, A, A , A, 2 

, 3D , 3D , 3C , 3D , 1 B ,:0 ,7,7,5,6, C® , E0 , B0 

, D0 , D0 , B0 , F0 , E0 , 0, , F0 . F0 , , 50 , 70 , , 

4840 DATA F , 1 F , ZF, ,23,21,31, 1F, :D,D, 

: 
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F,A,5,F,7,0,0,E0,F0,F8,88,3, 18,F0,7 
0, 60, É0, A0, 40, E0, C0, 0, 0, F, 1F,3F,23, 
21,31, 1F, 1D.D,F, A,0,0,5,F,7,E0,F0,F 
8,38,8,13, F0 , 70 , 60 , E0 , A0 , 0, , 40 , E0 , 
C0 

4850 DATA 0, E0, 70, 38, 1C, E, 5>3, 6, F, 1 
C, 38, 70, E0, 0,0,0,0,3, 12,22,46,D8,C0 
, 80 , 58 , 64 , 22 , 1 2 , C , , , , , , , 0-, 38 , 
7 E , F F , 6 , F B , 3 C , , , , . , , , , , , 1 E , 
61 ,-Cl , DE, C0, 8E, 71 , 21 , 1E, , , 
4860 DATA , , , , , , , , , 36 , 5B , D 
7,86, 1,7,3,38, 46 , D3 , EF , F2, F0 , FB, 66, 
1 8 , 3C , 30 , C, DC, DC, BC, 78 , , , , , , , 
0,0,0,28,76, 16,ED,23,C7,33,38,5E, A4 
,DA,F0,F0,FB,66, 1 8 , 3C , 30 , C , DC , DC , BC 
,78 

4S70 DATA 7,3F,67,B, 14, E, 1,F,F,F,F, 
, D , 4D , 7D , 30 , 80 , E0 , F0 , F0 , 30 , D0 . AC , 5 
0, A8, 58, F0, 8, B8,BA,9E, CC, 0,0,7, 3F, 6 
7,B, 14, E, 1,F,F,4F,8F,E0,7D,38,0, 0,3 
, E0 , F0 , F0 , 30 . D0 , AC , 50 , A^ , 59 , F3 , F , 
E,EC 

4880 DATA 7, F, 16, 5, 3C, 7F, FF, FD. 4B, 7 
,3E,0,3,23, A7.FF,80,C0,E0,70,F0,F8, 
FC , FC , BC , 5E , EE , D6 , AF , 57, AD, 5B , 7F , 1 7 
,22,3, 1, 1, 1, 1,3,6,3F.FE,C, 1S.0,0,9B 
, 79 , A5 ,13, C7 , FF , EF „ 30 , , , , C0 , , . 
, 

4890 DATA 80 , E0 . F0 , FS , FE , FF ., 7F ' :: 'F , 
3, C0, 70, 3C, 70, D3, 8, 0,0, 4, -1,C, 38, F8, 
F , E , C0 , , , . , , , , 7 , F , 12, 15, IB 
, 1F,F,F, 13, 1F,F,0,3,23, A7,FF,E0.F0, 
90 , 50 , B0 , F0 , E3 , EC , 94 , F6 , EE , :. a , Af , 57 
, AD, 5B 

4900 DATA 30 , C0 , F0, F8, FE , FF , 7F , W- , C 
7 , C 1 , E0 , 60 , 7C , 70 , FC , 9E , , , , , , 30 
, C0 , C0 , E0 , F0 , 70 , 30 , 30 . 40 , , , f t , U 
1,4,1, l,B,3,6,9,7,F.,D,F,7,í?,0,0,0,8 
, 90 , 30 , C0 , C0 . C0 . E0 , E0 . m , E0 ,C0, 30 
4910 DATA 0,1.1,1,1,1,1,1,0.^,1,1,1 
, , , , , , 80 , 80 , 30 , 30 , 30 , 80 . , E0. , 
,S0.30,0 i 0,0,F.3F,71.75, -3.75,-F,7F 
, 7F 7F,7F, 6F , ^4 , 52 .' 54 , FF , F0 , FC , 4E.3 
6,4E.5E,FE.FE,FE,! r E,FE.7E,B5, 4A. 52, 
FF 

4920 DATA 1,3,7,2, 6,3, 41 , 70. 70, 37. E 

, 18, 10, 11, 1B,E.C0,E0,F0,7S,B8,3C,F4 

,66,6,FC, 18,0,E0,F0, i B, E , 3 . 7 , Z . , , 

0.7.F3,70.37,E, 18, 10, 10, 19,F,E0,F0, 
78, BB, 1C,7C,F6,E6,C,F8, 0,0,0,2,É6,F 

C 

4930 DATA 0,0,0,0,0,0,60,90,88,63,9 
7,83,88, 10,20,20,0,0,0,0,0,0,8, 14,2 
0,8E,D2,80.30,8,4,0,0,0,0,0,0,0,20, 
50, 8, E3, 97, 3, 18,20,40,0,0,0,0,0,0,0 
,C, 12,22,8C,D2,82,22, 10,8,8 



Test de listados 



Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay que cargar 
en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre, pág. 29. 
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Programa 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1.° Podrán participar to- 
dos nuestros lectores, 
cualquiera que sea su 
edad. 

2° Los programas se re- 
mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



PREMIOS 

5. ° MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. ° Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 




O 
O 

Q. 




</)(/) 
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Por Juan Prada 



ASTERLAND 



Aventuras en el espacio 
intergaláctico. Vive la emoción 

divertida aventura que presenta 
Juan Prada 







»» Ver si ón 1.1 



I *ASTERLAND* 

I Por Juan Prada. MSX 1986 



4 l 







5 KEY4, "Li st " : KEY5, "Run "+CHR*<13 
) 

10 DEFINT A-H,J-Z 

15 DIM OBJ (7) 

16 JOY=0:PSF=96:MUS=1 
20 WIDTH40 

30 SCREEN 2, 2: COLORIS, 1, 1 : CLS 

40 □PEN*'GRP: "ASI 

41 W=9 

42 QN INTERVAL=8 GOSUB 13500 

43 I NTERVALOFF 

44 PLAY"V912" , "V912" , "V912" 

45 DATA 12,2, 3,7,5, 4, 13,6,8,9, 10, 11 
, 14, 15 

47 RESTGRE45: FOR H=2 Tü 15:XX=H*12: 
YY=H* 10: READH1 : CT=H1 : CF=1 : AVX=6: X*= 
"ASTERLAND" : GGSUB 15000: NEXT 

48 XX=0: YY=184:CT=2: X*="Por Juan Pr 
ada. Cangas de Onís" : GÜSUB 15000 

49 PLAY"n55n52n571 ln59" , u n52n48n541 
ln56" , "n24n24n261 ln28" 

50 GGSUB 10000 



60 

70 

1 00 

1 10 

VAL 
120 
1 000 



GOTO 11000 



GOSUB 9000 

IF MUS=1 THENRESTORE13560: INTER 
ÜN 

W=6 

Programa principal 



1005 PUN=0: NA V=3: NAV*= "***##" 
1010 X = 48 : Y=0 : CA V= 1 1 : R0C=9 : FUE= 1 58 : 
F0RG=1T07: OBJ (G)=0:NEXT: INCS=1: ICB= 
lsLL=3:BAX=0:BR=159: M=ll: 12=13 
1020 RUT SRRITE 8 , ( 8 , 23 ) , 1 , 8 : PUT S 
PRITE9, (152,3) , 11, 8: PUT SFRITE10, (1 
23,39) , 14,8 

1 025 L I NE ( , ) - ( 1 00 , 7 ) , 1 , BF : PSET ( , 

0) , 1:C0L0R2:PRINT#1,LEFT*(NAV*,NAV* 

2) 

1 030 SOUND 7 , &B00 1 1 1 

1032 SOUND 9,0:SQUND10, 16:S0UND11,2 




55: SOUND 12, 8: SOUND 13, 9 

1040 LINE í 128, 176) -(158, 182) , 13, BF 

1045 LINE (110, 168) -(158, 174) ,5,BF 

1100 K=STICK(JOY) 

1110. D=STRIG(JOY) 

1150 IF K=30R K=20R K'=4THEN GOSUB80 

00 

1160 IF K=70R K=80RK=6 THEN G0SUB82 
00 

1165 IF FUE=109 ANDY<176 THEN INCS= 
1: ICB=ICB+. 2: PUT SPRITE5, (0,-32) : PU 
TSPR I TE4 , (0,-32): S0UND6 , : S0UND9 , : 
GOSUB6000 : GOTO 1 180 

1170 IF D=-l AND Y>0 THEN Y=Y-INCS: 
INCS=INCS+.4: ICB=1:PUT SPR I TES, (X,Y 
+•17) , 10, 2: PUT SPRITE4, (X, Y+17) ,8, LL 
: INTERVALOFF: S0UND6, 63: S0UND9, 9: GOS 
UBI 31 00 ELSEGOSUB6000: INCS=1: ICB=IC 
B+ . 2 : PUT SPR I TES , ( , -32 ) : PUTSPR I TE4 
, (0,-32) : S0UND6, 0: S0UND9, * 
1180 LL=LL+1:IF LL=5 THEN LL=3 
1165 11=11+. 5: IF 11=14 THEN 11=11 
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Programa 




«ib ir nio«tPt. 1. 1 Di niDt(°». 1. 1 rCltX'i" 5 i' Cí«SCf"tl 



1186 I2=I2+.5: IF 12=14 THEN 12=11 
1200 IFBAX=0 THEN Y=Y+ICB 
1210 RUT SPRITE2, (X, Y) , 15, 0: PUTSPRI 
TE3, (X, Y) , 5, 1 

1215 PIP=POINT (X+3, Y+17) : PGP=PGINT ( 
X+12., Y+17) : IF PIP=4 AND PGP=4 THEN 
GÜSUB 12400 EL SE BAX=0 
1220 IF ROI NT (X, Y+5) =7 OR P0INT(X+6 
, Y+2) =7 ÜR FOINT (X+15, Y+5) =7 ÜR ROI 
NT(X+9, Y+2) =7 ÜR PO I NT < X , Y+ 1 5 ) =7 OR 
P0INT(X+15, Y+15)=7 THEN GOSUB12500 
1230 IF OBJ(4)=0 THEN PUT SPRITE 11 
, (72,55) , 3,LL+6 

1240 IF OBJ<5)=0 THEN PUT SPRITE 12 
, (184,71) ,9,LL+6 

1250 IF OBJ(6)=0 THEN PUT SPRITE 13 
, (32, 143) , 15, II: IF 11=11 THEN SOUND 
4, 100:SOUND5,0:SOUND10, 16:S0UND13,9 
1260 IF GBJ(7)=0 THEN PUT SPRITE 14 
, (144, 103) , 11 , 12: IF 12=11 THEN SOUN 
D4, 101:SOUND5,0:SOUND10, 16:S0UND13, 
9 

5999 GOTO 1100 

6000 IF MUS=1 THEN INTERVAL ON 
6005 RETURN 

8000 ? Mov. Derecha 

8005 IF X+2>240 THEN RETURN 

8010 X = X+2 

8199 RETURN 

8200 ' Mqv. Izquierda 
8205 IF X-2<0 THEN RETURN 
8210 X=X-2 

8399 RETURN 

8998 CLOSE 

8999 G0T08999 

9000 ■ 

9010 'Construcción de asteroide 

9011 ' 

9012 CLS 

9020 FORN=0TO150 

9021 XX=INT(RND< 1) *255) : YY=INT (RND ( 
1) *192> :CL=INT(RND(1> *15)+1 

9022 IF CL=7 OR CL=4 THEN CL=15 

9023 PSET(XX, YY) ,CL:NEXT 

9025 PSET(0, 12) ,7 

9026 INTER VALOFF 
9030 RESTORE 9900 
9040 READ WA,WE 

9050 IF'WA=0 AND WE=0 THEN 9080 

9060 LINE- (WA, WE) , 7 

9070 GOTO 9040 

9080 PAINT(4,32) ,7 

9090 RESTORE9950 

9100 FOR N=l TO 7 

9110 READ WA,WE 



9120 PSET ( WA, WE) , 1 : COLOR 4:PRINT#1 
ii ■■■>> 

n 

9130 NEXT 

9140 LINE(72, 152)-(167, 191) ,0,BF 

914 1 PRESE T(72, 152) : C0L0R2, 2: PRINT# 

i , "wmmmm" ; : coloró. 6: print#i , 

■" : PRESET (72,184): C0L0R2 , 2 : PR I NT# 1 , 
" ■■" : : C0L0R6 , 6 : PR I NT# 1 , " WmM—mm 

9145 VB=0 

9150 FOR N=152 TO 159 

9160 LINE(VB+72,N)-(167-VB,N) ,8: VB= 

VB+1 

9170 NEXT 
9175 VB=7 

9180 FOR N=184 TO 191 

9190 LINE(VB+72,N)-(167-VB,N> , 12: VB 
=VB-1 

9200 NEXT 

9210 LINE (72, 160) -(79, 183) ,2,BF:LIN 
E ( 1 60 , 1 60 ) - ( 1 67 , 1 83 ) , 6 , BF 
9220 COLORIS, 

9230 LINE (80, 160) - í 159, 183) , 10, BF 
9240 X*="PUNTOS: " : CT=1 : CF=10: AVX=6: 
X X=80 : YY= 1 60 : GOSUB 1 5000 
9250 X*="FUEL^ " : CT=4: XX=80: YY=168: G 
OSUB 15000 

9260 X*="BARRERA^":CT=6: XX=80: YY=17 
6: GOSUB 15000 

9270 LINE (110, 168) -(158, 174) ,5,BF 
9280 LINE (128, 176) -(158, 182) , 13, BF 

9899 RETURN 

9900 • Datas asteroide 

9905 DATA 4,16,4,24,8,40,24,40,28,4 
8 , 36 , 44 , 32 , 55 , 39 , 60 , 36 , 64 , 40 , 68 , 36 , 
72, 40, 76, 56, 80, 71 , 72, 88, 72, 95, 88, 92 
, 103,76, 116,71, 124,64, 120,55, 125,48 
, 119,36, 127,28, 144,28, 156,31, 160 
9910 DATA 56,160,63,144,72,143,80,1 
48, 100, 132, 112, 130, 127, 127, 132, 119, 
135, 104, 133,91, 1Í2,87, 126,72, 127,56 
, 144,56, 151,71, 159,56, 168,48, 167,39 
, 152,26, 143,23, 151,22, 168,21, 180, 19 
, 183,32, 188,30, 194,39, 192,52, 184,61 
, 1 80 , 72 , 1 67 , 87 , 1 75 , 92 , 1 83 , 88 
9920 DATA 200,88,202,95,215,111,223 
. 1 1 1 ,230, 127,223, 135,208, 140, 192, 13 
6, 191, 128, 182, 120, 183, 112, 176, 100, 1 
68, 100, 160,96, 144,95, 144, 103, 140, 10 
8, 143, 120, 160, 122, 160, 134, 168, 136, 1 
72, 144, 176, 156, 184, 164,200, 170,216, 
168,232, 164,244, 160 

9930 DATA. 247, 151,248, 112,252, 103,2 
55,96,254, 111,255, 120,252, 128.255, 1 
36,253, 144,255, 153,253, 183,242, 180, 
236, 187,215, 188,207, 183, 197, 187, 176 



, 185, 168, 183,71, 187,55, iWrwj iv*,o 
1,183, 14, 188, 15, 175,6, 175,6, 159,8, 1 
52,4, 144,4, 137,0, 132,2, 122,5, 105,8, 
111,20,95 

9940 DATA 7,94,10,72,4,82,0,66,5,48 
,0,32,0, 12,0,0 
9945 ' Datos bases 

9950 DATA 8,40,72,72,128,56,152,20, 

184,88, 144, 120,32, 160 

10000 ' Definición de Sprites 

10010 RESTÜRE10101 

10015 B*="" 

10020 FÜRN=0 Tü 13 

10025 FOR KÜKÜ = TO 31 

10030 READ WAX 

10040 B*=B*+CHR*(WAX> 

10050 NEXT KÜKÜ 

10060 SPRITE* <N) =B*: B*=" " 

10070 NEXT N 

10080 RETURN 

10100 ' Datos Sprites 

10101 DATA'0,3, 15,55,69,201,241,255 
, 127,63, 15, 1,3,3,7,0,0, 192,240,236, 
162, 147, 143,255,254,252,240, 128. 192 
,192,224,0 

10102 DATA 0,0,0,8,58,54,14,0,0,0,1 
6,56, 112,96,64,240,0,0,0, 16,92, 108, 
112,0,0,0,8,28, 14,6,2, 15 

10104 DATA 1,3,3,13,1,2,12,5,0,16,0 
,0,2,0,0,0, 128, 192, 192, 160,0, 176. 16 
0,0,64, 16,0,0,0,0,0,0 
10106 DATA 2,20,15,54,13,2,39,10,7, 
37,5,0, 18,0,0,0,64,48,52, 112,16, 104 
, 160, 196,32,96, 160, 144, 128,0,32,0 
10108 DATA" 2,4,22,72, 14,21,7,75, 13, 
2,41, 1, 10,0,0,2,64,96, 160,50,80, 176 
, 100,224, 176, 144, 192,0, 144,0, 128,0 
10110 DATA 0,0,4,0,112,109,75,50,10 
8 , 2 1 2 , 2 1 , 86 , 59 , 78 , 1 03 , , , , , 96, 2 
40, 16,208,96,48, 152,88,240, 192, 128, 
16,0 

10112 DATA 0,14,28,59,50,44,49,34,8 
1 , 160, 154, 233, 220, 1 10, 55, 3, 0, 0, 240, 
248, 188,92, 188,202,86, 195. 195, 147, 5 
4, 116,232, 128 

10114 DATA 30,48,105,210,167,192,49 
, 112,232,208,232,210, 104 , 49, 5, 0,-0, 4 
, 226, 222, 60, 92, 52, 80, 8, 36, 24, 164, 84 
, 12,248, 224 

10116 DATA 13,29,61,123,251,27,231, 
120,59,27,79, 13,5,2,2, 1, 176, 184, 188 
,222,223,216,231,30,220,216, 184, 176 
, 160,64,64, 128 

10118 DATA 0,48,88,120,49,2,33,0,8, 
28,50,50,90, 172,64,0,0,0,0, 16,"42, 14 
4,0, 96,240, 208, 124, 50, 98, 228, 120, 48 
10120 DATA 0,7,15,28,25,94,168,64,1 
2,30,27,48,9,7,66,0,0,38,95, 173,6,9 
6 , 176,240,96,2, 128, 144, 168, 16, 0, 



10122 DATA 0,0,0,0,0,0,0,8,0,83,28, 
1 20 ,212, 200 , 244 , 1 04 , , , 2 , 48 , 90 , 88 , 
50, 118,234,202,90, 116.96,96,96,224 
10124 DATA 0,0.,0, 0,0, 16,32,57,71,0, 
0, 104, 196,200,244, 104,0,0,2,48,90,8 
8,50,246,234,74,90, 116,224,240, 112, 
224 

10126 DATA 0,0,0,0,0,1,1,0,0,0,0,12 
0, 196,200,244, 104, 1,7,25, 120,236, 17 
2,218,238,234,74,90, 1 1 6, 96, 1 1 2, 88, 2 



1 1000 

11005 
1 1006 
1 1010 
11020 

1 1030 
- MI 
■" 

1 1031 
1 1040 
7, 0Ci: 
1 1045 



' Presentación 
I NTERVALOFF 
W=8 

COLORIS, 1,1: CLS 
PSET (64, 8) , 2: C0L0R2, 2: PRINTttl 
: PSET ( 56 , 1 6 ) , 2 : PR I NT# 1 , " 
PSET ( 160, 8) , 2: C0L0R2, 2: PRINT* 
I": PSET (160, 16) ,2:PRINT#1, "■■ 

COLORIS, 1 

DRAWC3BM40, 36M60, 4M80, 0C2M16 
:M188, 4M207, 36" 

COLOR , 3 : DRAW " C3£M40 , 36M207 , 36 



1 1046 DRAW " C3BM80 , 0M72 , 38 " 

11047 PAINT (64,5) ,3 

1 1 049 DRAW " C2BM40 , 36M207 , 36 " 

1 1050 DRAW"C2BM80, 0M80, 38BM167. 0M16 
7,38" 

1 1051 PAINT ( 104, 8) , 2 

1 1 052 COLOR ,12: DRAW " C 1 2BM40 , 36M207 , 
36" 

1 1 053 DRAW " C 1 2BM 1 67 , 0M 1 75 , 38 " 

1 1054 PAINT ( 176, 8) , 12 

1 1060 DRAW " C8BM40 , 36M72 , 24M175, 24M2 
07 , 36M 1 75 , 47M72 , 47M40 , 36M40 , 36 " 
1 1070 PAINT (88, 32) , 8 

11075 IF MUS=1 THENRESTORE 1 3560 : INT 
ERVAL ON 

11080 PSET (88, 33) , 8: C0L0R7: PRINT#1 , 
"ASTERLAND" 

11081 PSET (89, 33) , 8: C0L0R7: PRINT#1 , 
"ASTERLAND" 

11090 C0L0R5:PSET(16,56) , 1:PRINT#1, 
"MSX":PSET<17,56) ,0:PRINT#1, "MSX" 
1 1 100 CF=1 : AVX=6: CT=11 : XX=100: YY=56 
:X*="Por Juan Prada (C) 1986" : GOSUB 
1 5000 

11110 LINE(24,76>-<87,90) , 14, BF 

11111 CT=6:CF=14: XX=40: YY=80: X*="PU 
L_SA: " : GOSUB 15000 

11112 LINE<25,77>-(86,89) , 1,B 

1 1120 CF=*i : CT=10: XX=16: YY=96: X*=" 1 

Teclado" : GOSUB 15000: XX=16: YY=1 12: 
Xí^*^ Joystick (Port 1)":GOSUB150 
30: XX=16: YY=128: X*="3 Masica":GOS 
UB 1 5000 : CT=7 : X X= 1 6 : Y Y= 1 50 : X *= " J 
ugar": GOSUB 15000 
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Programa 



«10 ir n:D»(-P«. I.ll'-O" C* niD»f«>«.l. 




«j i» cos!:f-!r».f«.i..i.,--.i;->v , --.N 



11125 PSET (24, 128) , 1:PRINT#1, 

1 1 126 PSET (24, 150) , 1 : PRINT#1 , " 
11130 LINE<0, 187)-<255, 189) ,4,BF 

11135 PSET (24, PSF) , 1 : COLOR 13: PRINT# 
1 , " 

11136 IF MUS=1 THEN PRESET (88, 128) : 
CQLQR2 s PR I NT# 1 j ; QN " ELSE PRESET (88, 
1 28 ) : COLOR? : PRINTttl , "OFF" 

11139 IE=11:SA=255 

11140 K$=INKEY* 

11150 IF I<*="1" AND PSF < >96 THEN P 
RESET (24, PSF ) : COLOR 1 : PR I NT# 1 , " M" : P 
SF=96: JOY=0: PRESET (24, PSF) : COLOR 13: 
PRINT#1 ,"-*■": GOSUB1 1210 
11160 IF K*="2" AND PSF OI 12 THEN 
PRESET (24, PSF) : COLOR 1 : PR I NT# 1 , 
PSF=1 12: J0Y=1: : PRESET ( 24 , PSF ) : COLOR 
13: PRINTttl ,"-►": GOSUB1 1210 
1 1165 IFK*="3"THENIFMUS=1THENMUS=0: 
INTERVALOFF: PRESET (88, 128) : COLORI: P 
RINT#1, " ■■" : CT=9: CF= 1 : XX=88: YY=128 
: X*= " OFF " : GOSUB 1 5000ELSE I FMUS=0THEN 
MUS= 1 : RESTORE 1 3560 : I NTER VALON : PRESE 
T(88, 128) : COLORI :PRINT#1, "■■":CT=2 
: CF=1 : XX=88: YY=128: X*="ON " : GOSUB 1 5 
000 

11170 IF K*="0" THEN PUT SPRITE0, (0 

, -32 ) : SOUND 10,0: GOTO70 

11180 PUT SPRITE0, (SA, 170) , 14, INTÍI 

E) 

11185 SA=SA-1:IF SAO 15 THEN SA=255 
11190 IE=IE+.2:IF IE>=14 THEN IE=11 
11192 IF IE=11 THEN S0UND7 , ?<B00 1110 
00 : SOUND 10,16: SOUND 1 1 , 255 : SOUND 12,3 
: SOUND 13,9: S0UND4 , 1 00 : S0UND5 , 
11200 GOTO 11140 

11210 INTERVALOFF: S0UND7, &B001 1 1000 
: S0UND9 ,10: S0UND3 , 

11220 FORN=0 TO 255STEP7: S0UND2, N: N 
EXT 

11225 SOUND9,0:IF MUS=1 THEN I NTERVA 
LON 

11998 RETURN 

11999 G0T011999 
12400 ' Llegar a base 
12410 ICB=1 : BAX=1 : PH=PUN 

12415 IF X>4AND X <14 THEN IF OBJ ( 1 
)=0 THEN KL=1 : PUN=PUN+100: FUE=FUE+2 


12416 IF X>148 AND X<158 THEN IF OB 
J ( 2 ) =0THENKL==2 : PUN=PUN+ 1 00 : FUE=FUE+ 

20 

12417 IF X>124 AND X<134 THEN IF OB 
J ( 3 ) =0 THENKL=3 : PUN=PUN+200 : FUE=FUE 
+ 20 

12418 IF X>6B AND X<78 THEN IF OBJ < 



4 ) =0 THENKL=4 : PUN=PUN+450 : FUE=FUE+3 


12419 IF XM80AND X < 1 90THEN I FOB J ( 5 ) 
-0 THENKL=5 : PUN=PUN+540 : FUE*=FUE+30 

12420 IF X>28 AND X<38 THEN IF OBJ ( 

6) =0THENKL=6: PUN=PUN+1340: FUE=FUE+4 


12421 IF X > 1 40AND m X < 1 50THEN IF OBJ ( 

7 ) =0THENKL=7 : PUN=F'UN+ 1 500 : FUE=FUE+4 



12423 IF PH=PUN THEN 12499 

12424 IF FUEM58 THEN FLJE=158 

12425 OBJ (KL)=1 

12430 PUT SPRITE KL+7, (0,-32) 

12434 INTERVALOFF 

1 2435 S0ÜND5 , : SOUND 10,11: FORG= 1 TOS 
:FORN=l TO 255STEP1B: S0UND4, N: NEXTN 
:NEXTG:SOUND10,0 

12436 IF MUS=1 THENI NTERVALON 
12440 SS=0:F'ORN=1TO7: IF OBJ(N)=l TH 
EN SS=SS+1 : NEXT: IF SS=7 THEN RETURN 
15500 

12445 LINE(110, 168) -(FUE, 174) ,5, BF 
12450 LINEU16, 160) -(159, 167) , 10, BF 
12455 PRESET (116, 160) , 10:COLOR4, 10: 
PRINT#1 , PUN 

12499 RETURN 

12500 * Si chocas 

12510 SOUND 4, 1:S0UND5, 10:SOUND12,5 
: SOUND 10, 16: SOUND 13, 9 
12515 ICB=1 

12520 LINE(BR, 176) - (BR, 182) , 10 

12521 LINEÍBR-l, 1 76 ) - ( BR- 1 , 1 82 ) , 10 
12530 BR=BR-2:IF BR<127 THEN RETURN 

1 2900 

12899 RETURN 

12900 ' Explosión 
12905 INTERVALOFF 

12910 PUT SPRITE4, (0,-32) : PUT SPRIT 
E5, (0,-32) 

1 2920 S0UND6 , 40 : S0UND9 ,16: SOUND 12,4 
0:SOUND13,9:SOUND10, 16:30UND5, 11 
1 2930 NAV=NAV- 1 : I FNAV=0THENFGH= 1 ELS 
EFGH=0 

12940 PUT SF'R I TE0 , ( X , Y ) , 10,5: FORN= 1 
TO250:NEXT:PUTSPRITE2, (0,-32): PUT S 
PRITE3, (0,-32) 

12950 PUT SPRI TE1 , ( X , Y) , 8, 6: FORN= 1 T 
0250: NEXT: PUT SPRITE0, ( X , Y ) , 10,6: PU 
T SPRI TE i, (X, Y) , 15, 7 

12960 FORN=0TO250: NEXT: PUT SPRITE0, 
(X,Y) , 10, 7: PUT SPRITE1, (0,-32) : FORN 
=0TO250: NEXT: PUT SPRITE0, (X, Y), 15,7 
: FORN=0TO300: NEXT: PUT SPRITE0, (0, -2 
3) 

12965 F0RN=1T0 1000: NEXT 
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I 12970 BR=15S:FUE=158:X = 48:Y=0 
12980 IF FGH= 1 THEN GOTO 13000 
12990 LINE (0,0) -(100, 7) , 1,BF:PSET(0 
r m 9 1:C0L0R2, 1 : PRINT#1 , LEFT* (NAV*, N 
AV*2) 

12995 IF MUS=1 THENRESTOREl 3560: I NT 
ERVALON 

12999 GOTO 1030 

13000 > Muerte Final 

13005 IF MUS=1 THENRESTOREl 3560: INT 
ERVALON 

• 13010 FORN=0TO14:PUT SPRITEN, (0, -32 
) : NEXT: COLOR, 1, 1 : CLS 

13020 CT=10:CF=1: XX =90: YY=56: X*="Pu 
ntos: "+STR$(PUN) : GOSUB 15000: IF REC< 
PUN THEN REC=PUN: XX=80: YY=72:CT=9:X 
*="iHas hecho record !": GOSUB15000EL 
SEXX=50: YY=72:CT=7: X*="E1 record es 
té en"+STR*(REC) :GOSUB15000 
13030 FORF=1TO9000: NEXT: GOTO 1 1000 
13100 ? Baja el Fuel 
13120 LINE (FUE, 168)-<FUE, 174) , 10 
13130 FUE=FUE-1: IFFUE<=109THENFUE=1 
09 

13140 RETURN 

13500 ' Wúsica de fondo 

13520 READ B ' 

13530 IF B=0THEN RESTORE 13560 
13535 S0UND7, &B00 101010 
1 3540 PL AY " v= W ; 1 32N=B ; " 
13550 RETURN 

13560 DATA 46,53,62,53,33,53,60,53, 
46,53,62,53,41,57,65,57,43,50,58,50 
,41,50,57,50,43,50,58,50,38,53,62,5 
3,39,46,55,46,38,50,53,46,39,46, 55, 
46, 34, 50, 58, 50, 36, 50, 51 , 50, 34,50, 55 
,50,33,48 

13570 DATA. 53,48,29,45,51,45,46,50, 
53, 50, 4 1,46, 50, 46, 38, 4 1,46, 4 i, 34, 38 
, 41,38,31,38,40,42,43,45,46,48,46,4 
'3,45,46,48,50,52,53,48,52,55,52,43, 
48, 52, 48, 40, 43, 48, 43, 36, 40, 43, 40, 33 

,40,41,43,45,47,48,50,48,45,47,48,5 
0,52,53,55 

13580 DATA 50,53,57,53^45.50,53,50, 
41,45,50,45,38,41,45,41,34,41,50,41 
,31,41,46,41,33,41,48,41,29,41,51,4 

13590 DATA 34 ,.4 1 , 50 , 4 1 , 3 1 , 4 1 , 46 , 4 1 , 
33,41,48,41,29,41,51,41,34,41,50,41 
,35,43,53,43,36,43,52,43,37,45,55,4 
5 

13600 DATA 38,45,53,45,26,46,57,46, 
28 , 46 , 55 , 46 , 40 , 48 , 58 , 48 , 4 1 , 48 , 57 , 48 
, 29, 50, 60, 50, 31 , 50, 58, 50, 43, 52, 62, 5 

2 

13610 DATA 45,48,50,52,53,55,57,58, 
60,58,57,55,53,51,50,48,50,46,45,43 
, 41,39,38,36,34,36,38,36,34,33,31,2 



13620 DATA 28,48,58,48,29,48,57,48, 
26,46,57,46,28,46,55,46,29,45,55,45 
, 33,45,53,45,34,43,53,43,36,43,52,4 
3 

13630 DATA 45,48,53,48,45,53,48,45, 

4 1 , 45 , 48 , 45 , 4 1 , 48 , 45 , 4 1 , 36 , 4 1 , 40 , 38 

,36,34,33,31,29,33,36,41,45,48,51,5 
4 

13640 DATA 26,0 

15000 ' Subrutina escritura 40 cara 
ct 

15010 LLL-LEN ( X$ ) 
15030 FOR WASP=1T0LLL 

15040 PRESET ( X X , Y Y ) , CF : COLORCT,CF 

:PRINT #1,MID$(X*,WASP, 1) 

15045 XX=XX+AVX: IF XX>248 THEN XX= 

0: YY= s YY+ 1 

15050 NEXT WASP 

15100 RETURN 

15500 ' Coger todos los objétos 
15505 INTERVAL OFF 

15510 LINE (110, 168) -(FUE, 174) ,5,BF 
15520 FORN=0TO14:PUTSPRITEN, (0,-32) 
: NEXT 

15530 CT=8: CF=1 : AVX=6: XX=50: YY=0: X* 
= "Lo has conseguí do !": GOSUB 15000 

15535 GOSUB 15570 

15536 PUN=PUN+100 

1 5540 SOUND 10,13: S0UND9 ,12: S0UND3 , 3. 
: S0UND5, 0: S0UND7, &B001 1 1000: F0RN=1T 

200: S0UND4, N: S0UND2, N+55: NEXTN 
15550 FORN=200TO0STEP-1 : S0UND4, N: SO 
UND2, N+55: NEXTN: SOUND10, 0: S0UND9, 
15555 LINE (0,0) -(255, 7) , 1 , BF 

15557 LINE (116, 160) -(159, 167) , 10, BF 

15558 PRESET (116, 160) , 10:COLOR4, 10: 
PRINT#1,PUN 

15559 IF MUS=1 THENRESTOREl 3560: INTE 
RVALON 

15560 GOTO1010 

1 5570 SOUND 10,12: S0UND5 , 0: S0UND7 , *S 
00111000 

15575 FORT#=FUE TO 109 STEP-1 
1 5580 L I NE ( T# , 1 68 ) - ( T# , 174) , 10 

15589 G=(T#*2.5)-158 

15590 S0UND4,255-G 

1 5595 PUN=PUN+ 1 : L I NE ( 1 1 6 , 1 60 ) - ( 1 59 
, 167) , 10,BF:PSET(116, 160) , 10:PRINT# 

1 , PUN 

15600 NEXTT# 
15610 RETURN 



Test de listados 



Para utilizar el Test de Listados que ofrecemos al final 
de cada programa, recordamos que previamente hay que 
cargar en el ordenador el Programa correspondiente 
aparecido en nuestro número 10, de octubre, pág. 29. 
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Programa 



Por R. Mueller 



DERIVADAS 
E INTEGRALES 







Derivadas e integrales, dos hue- 
sos duros de roer. R. Mueller ha 
preparado un meticuloso pro- 
grama mediante el cual la reso- 
lución es un juego de lo más 
•'«- 



sencillo. 



10 ' DERIVADAS E INTEGRALES 

20 * ===== = = = = - — = = — = — - = = =: = = 

30 ' 

40 ' R. MUELLER 

50 ' 

60 ' ## Creación de variables #tt 
70 DIM D*<25) ,SD*<25) , I*<25) ,SI*<25 
) 

80 DIM N(5) 

90 FÜR X=l TO 25 

100 READ D*(X) ? SD*(X) . I*(X> ,SI*(X) 
110 NEXT X 
120 ' 

130 ■ ## Presentación ## 

140 CLS : COLOR 12,1:KEY OFF:T=0:S=7: 

AC=0 

150 LOCATE 2,0: PRINT "TABLAS DE DERI 
VADAS E INTEGRALES" 

160 L0CATE2, 1 : PRINT STR I NG* (32,61) 
170 LOCATE 5, 4: PRINT "TECLA 
OPCION" 

180 LOCATE 4, 5: PRINT STRING* (26, 195 
) 

190 OP* ( 1 )=" Tabla de der i vadas " : OP* 
(2>="Tabla de i ntegral es" : OP* (3) = "T 

est sobre derivadas" : OP* (4) ="Test s 

obre integrales" : OP* (5) ="Fi nal izar" 

200 FOR X=l TO 5 

210 LOCATE 6,S 

220 PRINTX;TAB(10) ;OP*(X) 

230 S=S+2 

240 NEXT X 

250 LOCATE 2, 22: PRINT" >>> PULSA LA 

OPCION DESEADA <<<":S=0 

260 0*=INKEY*:IF 0*="" THEN 260 

270 IF ASC(0*)<49 OR ASC(0*)>53 THE 

N260 

280 0=VAL<0*> 

290- IF 0=5 THEN CLS: NEW: END 
300 ON GOTO 310,310,930,930 
310 CLS: LOCATE 4,0 

320 PRINT "CADA TABLA CONSTA DE 5 PA 
GINAS" 

330 LOCATE 4,3 

340 PR I NT " S I MBOLOS : " : PR I NT : PR I NT 
350 PRINTTAB (6) ; "- * Producto" : PR 
INT 




Exponencial " 
Derivada pri 



360 PRINTTAB (6) : "- * 
: PRINT 

370 PRINTTAB (6) ; "- " 
mera": PRINT 
380 PRINTTAB (6) ; "- (a) Base a":PRIN 
T: PRINT: PRINT 

390 PRINTTAB (6) ; "a, c, m, n SON CO 
NSTANTES": PRINT 

400 PRINTTAB (6) ; "u, v, w SON FU 

NC I ONES " : PR I NT : PR I NT : PR I NT 

410 PRINTTAB(3) ; "### ATIENDE A LOS 

PARENTESIS ###" 

420 FOR X=l TO 4000: NEXT X 

430 " 

440 ' ## Creación de las tablas ## 
450 CLS: S=S+1: COLORI 2, 1 
460 LOCATE 0,0 

470 IF 0=2 THEN PRINT USING " TABLA 
DE INTEGRALES PAGINA #":S:C 

0L0R8, 1:G0T0 490 

480 PRINT USING " TABLA DE DERIVADA 

S PAGINA #";S 

490 LOCATE 0,2 

500 PRINT STRING*(37, 220) 

510 FOR X=3 TO 19 

520 LOCATE 0, X 

530 PRINT TAB ( ) ; CHR* (221) ; TAB ( 36 ) ; 
CHR*(202> 
540 NEXT X 
550 ' 

560 9 ## -Presentación tablas ## 
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JA VMtR GUERRERO 



CARLOS GON/AI*, 



componer mosica a U na.d M o tr« W£es 
m tus propios programas de gestión. 



LOS SECRETOS DEI 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 




r 



Deseo me envíen el libro de los secretos del MSX, para lo 1 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL 

Roca i Batlle, 10-12 






570 LOCATE 0,20 

580 PRINT STRING*<37,223) 

590 FGR X=5 Tü 17 STEP 3 

600 T=T+1:L0CATE2,X 

610 IF 0=1 GÜTÜ 640 

620 PRINTCHR$<245) ; I*(T) ; "= ";SI*(T 
) 

630 LÜCATE2,X-1:PRINTCHR*<244) s GOTO 
670 

640 PRINT"y=";D*(T) 

650 IF S<>3 THEN LOCATE 16, X ELSE L 
OCATE 10, X 

660 PRINT"y'=";SD$(T) 

670 NEXT X 

680 IF T>5 THEN 700 

690 L0CATE5, 22: PRINT" Pulsa un 

a tecla " : GOTO 710 

700 LOCATE l,22:PRINT"Pulsa una tec 

la (0 ■ pag. anterior) " 

710 D*-INKEY*: IF D*= M " GOTO 710 

720 IF D*= M U AND T>5 THEN S=S-2: T= 

T-10 

730 IF S=5 GOTO 140 

740 IF S=4 THEN BEEP: BEEP 

750 GOTO 450 

760 " 

770 • ## Datos ## 

780 DATAk , , dx , x +c , x , 1 , x •'•n *dx , x * ( n + 

1 ) / (n+1 ) +c, u+v-w, u* +V' -w' , dx/x , lnx + 

c 

790 DATAu*v.,u' «v+v' *u,dx/ <x + a) ,ln(>; 
+a> +c , k*u, kéu* , a^xJdx , a A x/lna+c 
800 DATAu/v, (u' «v-v' *u> /V-2, e-' s x*dx , 
e'-x+c , u' s m, m*u - (m-1 ) *u' , senx*dx , -eos 
x+c 

810 DATAlog (a)u,u ? /u*log (a) e, cosx*d 
x , senx+c , lnu, u' /u, tgx*dx , -ln cosx+c 
820 DATAÍ nx , 1 /x , cotgx *dx , 1 n senx+c, 
a' s u, a-' u*u 7 *lna, dx/ (cosx ) •"•2, tgx+c 
830 DATAa^x , a'"x *1 na, dx / (senx ) *2\ -co 
tgx+c, e' s x , e"x , dx/J ( l-x "-2) ,arc senx + 
c 

840 DATAu"v, u"v*v' *lnu+v*u' (v-1) tu' 

, dx / < 1 +x ■-■2 ) , ar c t gx +c 

850 DATAsenu, u 9 *cosu,u' /u*dx , Inu+c, 

cosu, -u* *senu, senx / (cosx ) ' 2*dx , secx 

+c 

860 DATAtg u, ü* / (cosu) '-2, cosx / (senx 
) ^2, -coseex+c 

870 DATAcotgu, -u* / (senu) '-2, lnx*dx , x 
*lnx-x+c , secu, u* *secu*tgu, shu*du, ch 
u+c 

880 DATAcosecu, -u' *cosecu*cotgu, chu 
*du, shu+c , are senu, ü* /sí'< l-u' s 2) , thu* 
du, 1 n chu+c 

890 DATAarc cosu, -u ? / 4 ( l-u '-2) , du/ -J ( 
l+u'-2),arg shu+c, are tgu, u" / ( l+u x 2) 
, du/J (U---2-1 ) , arg chu+c 
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Programa 










900 DATAarc catgu,-u'/ ( 1+u 2) , du/ ( 1 
- u- - - 2 ) p ar g t h u + c | u f< 1 , 1 / , - 1 / x * 2 , 
du/ ( 1-U--2) , arg cotghu+c |u|>l 
910 ' 

920 ' ## Rutina para test tt# 

930 TT=0:AC=0 

940 FÜR X = l Tü 5 

950 N(X)=INT(RND(-TIME) *25+l ) 

960 FOR Y = X-1 Tü 1 STER 1 

970 IF N(X)=N(Y) 
980 NEXT Y 
990 NEXT X 

1 000 N= I NT ( RND (-TIME)* 5+ 1 ) : M=N ( N ) 
1010 ' 
1 020 

1030 

1040 

1050 

y' = 

1 060 



## Test derivadas ## 
IF 0=4 THEN 1 130 
CL5: COLOR 12, 1 : S=5 
LOCATE 2,2:PRINT"v : 



D* <M) 



FOR X*l TO 5:T=N(X) 



1070 LOCATE 5,S:PRINTX;" ";SD$(T) 

1080 S=S+2 
1090 NEXT X 
1 100 GOTO 1210 
1110 ' 

1120 ' m Test de integrales tt# 

1130 CLS: COLOR 6, 1 : S=5 

1140 LOCATE 2, 1 : PRINTCHR* (244) 

1150 LOCATE 2, 2: PRINTCHR* (245) : I*(M 
) ; »»« 



1 160 
1 170 
1 180 
1 190 
1 200 
1210 



FOR X-L TO 5:T=NÍX> 
LOCATE 5,S:PRINTX; " 
5=5+2 
NEXT X 



";3I$(T) 



## Valoración del test 
1220 LOCATE 33, 0: PRINTTT+1 
1230 LOCATE 1 ,17: PRINT " L CUAL CREES 
QUE ES LA SOLUCION ?" 
1240 LOCATE 2,19: PR I NT " ( Pul sa par 
a terminar el test)" 

1250 A$=INKEY$: IF A*-"" THEN 1250 
1260 IF A5C(A*><48 OR ASC(A*)>53 TH 
EN 1250 
1270 A=VAL(A$) 

IF A=0 THEN 1330 
TT=TT+ 1 

IF A=N THEN AC=AC+1 : BEEP: BEEP: 
940 

LOCATE 4,22:PRINT"LA SOLUCION 



1280 
1290 
1300 
GOTO 
1310 
ES EL 



NUMERO" ; N: PLAY"D" 



FOR X=l TO 



NEXT XrGOTO 94 



13: 


1330 IF TT=0 THEN TT=1 

1340 PA=INT(100*AC/TT) 

1350 CLS: LOCATE 2,11: PR I NT " PORCENTA 

JE DE ACIERTOS: ": RA; "7." 

1360 FOR X=l TO 2500: NEXT X 
1370 GOTO 140 



Test de listados 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa corres- 
pondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



10 


- 58 


210 


-110 


410 




610 


-244 


810 


- 45 


1 1 


- 58 


1210 


~ 58 


20 


- 58 


220 


-232 


420 


-148 


620 


- 36 


820 


- 80 


1 020 


- 58 


1220 


-187 


30 


- 58 


230 


-153 


430 


- 58 


630 


-152 


830 


-202 


1030 


~ 52 


1230 


- 63 


40 


- 58 


240 


-219 


440 


- 58 


640 


-21 1 


840 


- 58 


1040 


-129 


1 240 


-101 


50 


- 58 


250 


_ ~7 

l 


450 


-193 


650 


-117 


850 


- 80 


1 050 


-199 


1 250 


-107 


60 


- 58 


260 


-166 


460 


- 38 


660 


- 77 


860 


-137 


1060 


- 62 


1260 


- 69 


70 


- 62 


270 


-129 


470 


-1S1 


670 


-219 


870 


-174 


1 070 


-170 


1270 


-121 


80 


- 59 


280 


-149 


480 


-154 


680 


-137 


880 


-131 


1 080 


--153 


1280 


_ -> -T ET 

4Í. w w 


90 


-220 


290 


-225 


490 


- 40 


690 


-239 


890 


-222 


1090 


-219 


1 290 


- 66 


100 


-255 


300 


-225 


500 


- 16 


700 


-215 


900 


- 44 


1 100 


- 85 


1300 


- 81 


110 


-219 


310 


_ -T 


510 


-216 


710 


_ 5¡ 


910 


- 58 


1 1 i 


- 58 


1 3 1 


- 81 


120 


- 58 


320 


-203 


520 


-109 


720 


-244 


920 


- 58 


1 1 20 


- 58 


1320 


~ 20 


1 30 


- 58 


330 


- 45 


530 


- 31 


730 


— 6 


930 


-102 


1 130 


- 1 25 


1 330 


-182 


140 


- 192 


340 


- 13 


540 


-219 


"740 


-118 


940 


-202 


1 1 40 




1340- 


-219 


150 


- 61 


, 350 


-157 


550 


- 58 


750 


- 90 


950 


-110 


1 150 


-225 


1350 


-145 


160 


-175 


360 


-247 


560 


- 58 


760 


- 58 


960 


-241 


1 160 


- 62 


1360 


-178 


170 


-111 


370 


- 90 


570 


- 56 


770 


- 58 


970 


- 10 


1 170 


-175 


1370 


- 35 


1 80 


- 85 


380 


- 71 


580 


- 19 


780 


-237 


980 


-220 


1 180 


-153 






190 


-225 


390 


- 11 


590 


-200 


790 


-.JjL. 


990 


-219 


1 190 


-21 9 


TOTAL: 
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PHANTIS 



■ggggtgor M. A. Vila m 

Uno de los últimos juegos de Di- 
namic ha alcanzado un enorme 
éxito en todos los sistemas. Hoy 
os ofrecemos el mapa y los carga- 
dores de vidas infinitas. 



PHANTIS 

Phantis es novedad en todos los orde- 
nadores y es uno de los mejores juegos de 
Dinamic. 

El juego tiene doble ca*ga, es decir, tiene 
dos partes, una cara de la cassette contiene 
la primera parte del juego, compuesta por 
cuatro fases con toda la emoción del mejor 
arcade. En la otra cara de la cassette se 
encuentra la segunda parte, una video 
aventura con todos los requisitos a que 
Dinamic nos tiene acostumbrados. Para 
acceder a ella necesitamos cierta clave que 
nos dan al finalizar la primera parte del 
juego y que diremos más adelante. 



INICIO 

Godofredo, cabo de la quinta patrulla de 
láser rojo tenía como misión tomar unas 
fotos de la superficie de un satélite llamado 
Phantis, ya que en tal satélite se habían 
producido varias desapariciones- de naves 
comerciales. Mientras tomaba las fotos, 
hubo algún fallo en los motores de su nave 
y cayó en el satélite Phantis. Fue recogido 
y capturado por los habitantes de Phantis, 



llamados Phantasiosos, que eran especíme- 
nes muy malvados. Antes de capturarle, le 
dio tiempo de mandar un SOS a la Tierra, 
el mensaje fue recogido, pero sus compa- 
ñeros no se atrevían a ir. Godo tenía una 
novia, llamada Sabrina, era una mujer gua- 
pa, con un buen par de... (os lo imagináis) 



y con muchos amigos por el universo. Fue 
la única que quiso ir a esa misión para 
rescatar a Godo, estaba dispuesta a morir 
por él si fuera necesario (lo que hace el 
amor). Pero tú, como buen caballero, ac- 
cediste a acompañarla para que no le su- 
cediera nada de nada. 




¿Dejarás sola a nuestra exbuberante amiga en el desolado y peligroso planeta Phantis? 




segunda carga de 
Phantis. Para acceder a 
ella deberos introducir 

• de acceso 
18757. Con esto y ' 

> cargador de 
vidas infinitas tenéis 
camino Ubre para 
alcanzar el final de este 
juego. 
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PRIMERA PARTE 

Sabrina disponía de una nave intergalác- 
tica, muy buena, que llevaba lo último en 
rayo láser. 

Después de años luz de viaje comenzaba 
su misión, ya que los radares de Phantis 
detectaron un objeto no identificado en su 
espacio galáctico, los phantasiosos pidieron 
su identificación. Sabrina se negó a darla 
y desconectó la radio. Al ver que la nave 
se acercaba mucho al planeta, el coman- 
dante en jefe de las brigadas suicidas de 
Phantis, desplegó a varias tropas de naves 
por el espacio, tropas suicidas, es decir 
como los kamikazes. Sabrina te dejó al 
mando de la nave, para que te quitases de 
encima todas esas naves Phantasiosas. La 
sorpresa fue que el espacio estaba repleto 
de meteoritos que tenías que esquivar con 



mucha astucia. Después de mucho esfuerzo 
y sudor conseguisteis llegar a la superficie 
del satélite, donde todavía os aguardaban 
muchos peligros. 

De pronto os empezaron a atacar por 
detrás, os pillaron desprevenidos; pero con 
mucha astucia conftguistéis esquivarlos. 
De nuevo comenzaban a salir naves de 
todas panes y para mayor desgracia la 



superficie del planeta Phantis estaba reple- 
ta de volcanes que hadan erupción al paso 
de la nave. Sabrina ya rezaba y tú esqui- 
vabas y matabas todo lo que se te ponía 
en medio. Después de mucho tiempo la 
Tierra se abrió y una fuerza brutal os atrajo 
a las entrañas del planeta. 

Ya dentro del satélite, en una especie de 
cavernas en roca viva, volabais sin rumbo. 
Otra vez vuestros enemigos dando la lata 
os disparaban; pero esta vez todo era más 
peligroso, ya que había una especie de 
vigilantes con forma de serpiente a los que 
sólo se les podía matar disparándoles en 
la cabeza. También había nebulosas que 
tenías que esquivar. 

Pasados todos los obstáculos llegasteis a 
unas marismas donde os esperaba una es- 
pecie de caballo y canguro gigante, el cual 
a Sabrina por el mar. Esta vez 



CARGADOR DE VIDAS INFINITAS ( 1 



1 ' CARGADOR - PHANTIS (1 PARTE) 

2 'PARA SER INMUNE A TODO 

3 'POR MIGUEL A. VILA LUGO 

4 'PARA MSX-CLUB 

5 * 

10 
20 
30 
40 
50 



MIGU 



I,C 



COLOR 13, 1, 1:SCREEN 2 
OPEN"grp: "ASttl: COLOR 1 
LINE (10, 130>-(249,20) ,4,B 
LINE (17, 120) -(242, 30) ,5, BF 
PSET (20, 50) , J:PRINT#1, "CARGADOR 

- PHANTIS 
60 PSET (21 

- PHANTIS ( 1 Parte) " 

70 PSET (45, 74) , 1:PRINT#1, "Por • MIGU 



( 1 Parte) " 
50 ) . 1 : PR I NT# í , " CARGADOR 



80 PSET (46, 74) , 1:PRINT#1, "Por 
EL A. VILA " 

90 FOR I*S<HFE00 TO 8¿HFEU 
100 READ A*:C=VAL("S<H"+A*) : POKE 
: J=J+C 
110 NEXT I 

120 IF J02293 THEN COLOR 15,1,1:SC 
REEN 0: BEEP: PRI NT "ERROR EN DATAS" :E 
ND 

CLEAR 200,35000! 
BLOAD"cas: " , R 
BLOAD" cas: " 
BLOAD"cas: ",R 
BLOAD" cas : " 

DEFUSR=&HFE00: A=USR (0) 



1 30 
140 
150 
160 
170 
180 



190 DATA 3E,0,32,E9,B6,32,EA,B6,3E, 



+ 




n 






1 


FINAL 
1 1 


1 










i 



En la foto podéis observar un detalle de la primera Jase de este juego de la que, por i 
totalmente lineal, no incluimos ningún tipo de mapa. 
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disponía de una especie de boomerang 
sideral que desintegraba todo lo que tocaba. 
En esta zona salían cantidad de sapos gi- 
gantes y muchos de vuestros enemigos se 
tiraban desde el aire. 

Después de mucho tiempo matando bi- 
chejos os dieron una clave para poder 
pasar a la segunda parte, finalizando así la 
primera. 

SEGUNDA PARTE 

Para esta segunda parte os damos el 
mapa, que os será de una gran ayuda para 
realizar toda la misión 

Sabrina se encontraba en tierra firme, 
disponía de un propulsor y una gran ayuda, 



la de Boing, otro espécimen (esta vez bue- 
no) que pasaba por allí y que iba á ayudar 
a Sabrina, quitándole de en medio a todos 
sus enemigos. 

En un desnivel grande (fíjate en el 
mapa) Sabrina se separó de su amigo y se 
tiró al vado, cayendo cerca de un láser de 
iones, que le iba a ser muy útil Avanzaba 
por la izquierda. 

Mientras tanto buscaba vidas (unos co- 
razones grandes) y recobró el cargador de 
protones que haría que su láser fuera más 
efectivo. Tras pasar por cabernas y vege- 
taciones nunca vistas se encontró con una 
puerta enrejada. Puerta que no se abría, ya 
que necesitaba una llave, una especie de 
medallón con una S. Al encontrarlo volvió 



a la puerta y la abrió. 

Siguió avanzando, matando todo lo que 
se ponía en su camino. Se encontró otro 
desnivel, se lanzó y cayó en una laguna en 
la cual se dio un chapuzón. Esta vez avanzó 
a la orilla; pero se llevo una gran sorpresa 
al encontrarse con grandes bichos (especies 
de cocodrilos), que le mordían sin piedad 
y le iban quitando fuerza; pero siguió. Más 
adelante se encontró con un helicóptero. 
No se sabía cómo; pero al moritar la tras- 
ladó a los pies de un volcán. Sabrina se 
introdujo en él, tenía que llegar al otro 
extremo, donde se estaba cerca de las maz- 
morras. En esta zona necesitaba tener mu- 
cho cuidado de no caer en lava ni que la 
tocara la lava impulsada hacia arriba. Des- 
pués de mucho esfuerzo y paciencia con- 
siguió pasarlo; pero todavía no era sufi- 
ciente, ya que caían grandes rocas 
volcánicas. Con una fuerte carrera y esqui- 
vando bien las rocas, consiguió pasar. Ya 
todo lo malo había pasado. Sólo faltaba 
matar a los últimos enemigos, llegar a las 
mazmorras y encontrar a Godofredo. Es- 
taba encadenado; pero viyito y coleando. 
Le desencadenó y como todos los finales 
tienen que ser buenos, éste no fue menos. 
Compruébalo tú mismo. 

LOS CARGADORES 

Como nos parece casi imposible ver el 
final de las dos etapas, aquí os damos 
nuestros cargadores, para que consigáis ver 
feliz a Sabrina. 



CARGADOR DE VIDAS INFINITAS (2) 



1 ? CARGADOR - PHANTIS (2 PARTE) 

2 'POR MIGUEL A. VILA LUGO 

3 ' PARA MSX-CLUB 

4 ' 

5 CLEAR 300,35500! 

6 COLOR 15,1,1: K'EY OFF:CLS 

7 POKE&HFCAB, 1 : POKE &H88B1 , 0: POKE & 
H88B2,0 

8-FOR I=?/.HF500 TO &HF50F 

9 READ A*: A=VAL ( "S<H"+A*> : POKE I,A:J 






=J+A 

10 NEXT I 

11 IF JO 1962 THEN CLS : BEEP : PR I NT " E 
RROR EN DATAS " : END 

12 LOCATE 4,3:PRINT"CARGAD0R - PHAN 
TIS (2 PARTE ) " 

13 LOCATE 5,5:PRINT"CLAVE DE ACCESO 
- 1 8 7 5 7" 

14 LOCATE 5,7:PRINT" POR M.A.V. PAR 
A MSX-CLUB " 

15 LOCATE 3, 12: INPUT"QUIERES VIDAS 
INFINITAS (S/N) " ; V* 

16 IF V*="N" THEN POKE ?<H88B1,50 

17 LOCATE 3, 12: INPUT"QU IERES INMUNI 
DAD TOTAL (S/N) » ; V* 

18 IF V*="N" THEN POKE ?<H88B2,50 

19 SCREEN2 

20 BLOAD"CAS: " , R 

21 BLOAD"CAS: " 

22 BLOAD"CAS: " , R 

23 BLOAD"CAS: " 

24 DEFUSR=&HF500 : A=USR ( ) 

25 DATA 3A,B1,88,32,B5,C4,3A,B2,8B, 
3 2,,A,C«,C3,B2,A7,..,. 



Software MSX-2. 



por Benjamín Llamas Ruiz 



L'AFFAIRE 



L'affaire es mucho más que un 
juego de aventuras. L'affaire es la 
máxima exposición de las capaci- 
dades gráficas y sonoras de los 
MSX-2. 



• Malditos traidores!, exclamó Raymond 
1 entre rejas y compañeros asesinos. Os 
1 encontraré y os mataré cuando salga de 
este sucio agujero. 

En este juego desempeñas el papel de 
Raymond Pardon, el típico ciudadano ama- 
ble, servicial y que jamás había matado una 
mosca. Pero bueno, te preguntarás, ¿qué 
recórcholis estabas haciendo en una cár- 
cel?; pues es bien sencillo de explicar. 
Habías sido culpado de un atraco que no 
habías cometido. En la miseria, y sin sa- 
berte defender, fuiste condenado a 6 años 
de prisión sin ninguna posibilidad de re- 
bajar la pena. Te sentías manipulado y con 
ganas de contar toda la verdad; pero ¿quién 
te iba a creer? Lo peor de todo no fue esto 
sino que habías conocido anteriormente a 
una chica con la que entablaste relacioneí 
más que amigables y con la que pensabas 
formar pareja, pero después del lamentable 
suceso la dejaste de ver. Como diríamos, 
¡se esfumó! 

Los días iban pasando y seguías en el 
mismo sitio; siempre la misma comida, los 
mismos trabajos, la misma celda, la misma 
gente, ¡horroroso! ¿Que si se te había pa- 
sado por la cabeza la idea de una fuga? 
Claro que sí; pero preferías esperar hasta 
el último día y hacer las cosas bien. Al cabo 
de 6 años, por fin llegó ese día. Pasaste por 
la secretaría para que te entregasen la ropa 
con la que habías entrado y una pequeña 
cantidad de dinero para tus primeros gas- 
tos. Por fin se abrió la gran puerta de 
hierro y ante ti apareció un nuevo mundo, 
una nueva vida. Lo primero fue comprarte 
un poco de ropa y unos zapatos para ir a 
la moda. Más tarde creíste conveniente ir 
a comer algo diferente al rancho de aquel 
lugar tan repugnante. Mientras comías, 
comenzaron a pasar por tu cabeza, algunas 
ideas que te hicieron recordar el día del 
juicio. Tres personas fueron las que ates- 
tiguaron en contra suya. La primera, el 
dueño de un famoso restaurante en Can- 
nes; la segunda un ciudadano holandés, y 
la tercera un sospechoso residente en París. 
Posiblemente fueron ellos tres los autores 
del atraco o bien los cómplices; pero la 
tarea de descubrirlo te tocaba a ti y no 
tenías tiempo que perder. Así que lo pri- 
mero que hiciste fue ir a visitar a un 
estimado amigo tuyo de París para que te 
echase una mano. Como era de esperar, te 
te proporcionó un pasaporte, una 




y un poco de dinero para tus gastos de 
viaje. Habiéndote despedido de tu amigo 
saliste hacia la estación para comprobar las 
salidas hacia toda Europa. Sabías que tus 
sospechosos se encontraban en algunas de 
estas ciudades: BARCELONA, CANNES, 
ROMA, HAMBURGÓ, AMSTERDAM, 
LONDRES. 

BARCELONA 

Decidiste primero ir a BARCELONA, y 
si más tiempo a perder tomaste el tren 
hacia España. Una vez en BARCELONA, 
visitaste la famosa Sagrada Familia. Aun- 
que no te sirvió de mucho te cogía de 
camino hacia el puerto. Una vez en los 
muelles del puerto buscaste a alguien que 
te pudiera dar información sobre lo que 
buscabas, así que te acercaste a un borracho 
que se encontraba tirado al lado de un 
contenedor. Lo despertaste y le preguntas- 
te sobre tu problema. Lo único que te 
respondió fue que lo había visto encima del 
cubo de basura. Tú te quedaste muy extra- 
.ñado; pero al observar que en la esquina 
había un cubo de basura te acercaste a ver 
si había algo y ¡eh, voila!, encontraste un 
papel con un número grabado en él Exac- 
tamente era el número 2196, que aunque 
no sabías lo que quería decir, guardaste por 
si acaso. Continuando tu marcha por el 
puerto, te encontraste a un policía que te 
la document 




examinaba cuidadosamente. Perdone caba- 
llero, es simple rutina, con esto de los 
terroristas ya se sabe, y te la entregó de 
nuevo. Preferiste salir de aquel lugar, por 
si las moscas, y regresar a la estación para 
tomar el tren que te llevaría a Carines. 

CANNES 

Al amanecer ya te encontrabas en Can : 
nes, ciudad maravillosa y que los produc- 
tores escogían para sus películas, por el 
clima cálido. Paseando por la zona marí- 
tima de la costa, viste a un señor que quizá 
te pudiese ayudar, así que te acercaste. 
Buenas tardes señor, ¿sabría usted decirme 
exactamente dónde se encuentra el restau- 
rante más famoso de la ciudad? El te 
contestó con aire despreocupado: soy el 
mejor productor de cine y por eso me van 
a conceder la Palma de Oro. Viste que no 
te sirvió de mucho y decidiste optar por 
tomarte un refesco (el calor era agobiante). 
Fuiste a un bar de por allí cerca de donde 
se encontraba gente conocida del cine. 
Mientras te tomabas la cerveza, escuchaste 
una conversación en la que se hablaba del 
último golpe de tres atracadores. Esto te 
intereso y te dirijiste para ver si te ente- 
rabas de algo pero el esfuerzo fue inútil, 
se habían marchado. "Antes de irte de la 
ciudad, recogiste unas postales que había 
en el puerto por si te servían de algo. AI 
tus investigaciones no daban frutos 
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ROMA 

El viaje duró dos días y medio; pero te 
sirvió para ordenar tus ideas sobre lo su- 
cedido. Por ahora no habías obtenido re- 
sultados satisfactorios; pero te ibas encua- 
drando en el ambiente. -Llegaste a Roma 
al atardecer y decidiste que ya era hora de 
descansar un poco en una posada. Cenaste 
y te acostaste esperando que el día de 
mañana te fuera mejor. Al día siguiente 
saliste a visitar el Vaticano visitado por 



gentes de todos los países. En. el interior 
del Vaticano encontraste otro montón de 
postales del lugar, las cuales cogiste sin 
saber de qué te servían. Cerca de la plaza 
te encontraste una cabina telefónica. Te 
acercaste a ella y sacaste la agenda que te 
había dado tu amigo. Marcaste el primer 
número señalado y te contestó una voz de 
chico como si te conociera de toda la vida. 
Colgaste pensando que te habían tomado 
por tu amigo y regresaste a la estación. 
Ahora te tocaba visitar la parte norte de 



Europa. 

HAMBURGO 

Empezaste por Hamburgo, y tomaste 
rápidamente el tren hacia dicha ciudad. Al 
llegar a la ciudad te dirijiste al puerto, 
donde te esperaba un contacto para pasarte 
información. Te estaba esperando al lado 
de un barco. En seguida te reconoció y 
comenzó a explicarte lo sucedido. Según lo 
que te contó habían ido a Londres para 
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que no los reconociera la justicia francesa 
ni los pudieran mandar de regreso a Fran- 
cia. Creíste conveniente tomar un barco 
que te llevase directamente a Londres para 
atraparlos; pero no tenías el suficiente di- 
nero como para pagar el viaje, así que 
tuviste que ir en tren hasta Amstérdam y 
desde allí tomar un barco, ya que la dis- 
tancia es más corta y el precio del viaje 
menor (claro está). Estabas impaciente por 
llegar a Amstérdam y tomar el barco que 
te llevaría a la venganza; pero todavía 
pensabas en las pruebas que ibas a presen- 
tar en la acusación. 

AMSTERDAM 

Con tanto pensar llegaste a la ciudad sin 
darte cuenta. Saliste de la estación y, sin 
perder ni un segundo, fuiste a comprar el 
billete de barco. Mientras cruzabas un 
puente se te acercó un señor que te entregó 
una especie de caja dorada, y echó a correr 
sin más explicación. Como tenías mucha 
prisa te la guardaste en tu maleta de viaje . 
y seguiste tu camino. Una vez con el billete 
en la mano fuiste al puerto donde estaba 
esperando el barco que te llevaría a 
Londres. 

LONDRES 

El viaje duró dos días y fue un poco 
«movidillo» Una vez fuera del barco cogis- 
te un taxi para llegar a la otra punta de 
la ciudad. En la otra parte de la ciudad se 
encontraba el más famoso «SEX SHOP» 
inglés. Dicho lugar se encontraba sumido 
en un tumulto de gentes inmenso, así que 
te pusiste a buscar a tu contacto sin perder 
el tiempo. Parecía que no lo ibas a encon- 
trar hasta que de repente apareció ante ti 
un callejón oscuro y profundo, el cual con- 
cordaba con la descripción que te había 
proporcionado tu otro contacto. 

Penetraste en él con un paso corto y 
sigiloso. Parecía que no había nadie, hasta 
que una voz detrás tuyo dijo: Me bus- 
cabas... 



CARACTERISTICAS 
TECNICAS 



Bueno, más o menos ya os hemos am- 
bientado un poco en la historia y espera- 
mos que lleguéis a buen fin con ella. 
A continucación paso a comentaros los 
detalles técnicos. En el momento en el que 
cargamos el juego nos aparece una pantalla 
de presentación en la cual se desarrolla 
toda la acción, cambiando de escenarios, 
claro está. La pantalla la podemos dividir 
en varias partes: 

L La parte en la que se encuentra el 
mapa de Europa con los puntos señalados 



correspondientes a las ciudades. Mediante 
el cursor podremos optar por la ciudad a 
visitar con sólo colocarlo encima del punto 
y presionar espacio. 

2. Parte gráfica o situacional. Es la pan- 
talla que nos sitúa en el escenario de cada 
ciudad donde se desarrolla la accióa En ella 
podremos encontrar objetos de utilidad. 

3. Pantalla conversacional o informati- 
va. En ella aparecerán los textos informa- 
tivos o los diálogos entre tú y los restantes 
personajes. 

4. Intercambio. Se representan en la 
parte superior de la pantalla mediante dos • 
rectángulos o ladrillos de diferente color. 
El de la parte izquierda, corresponde al 
cambio de personalidad. Estas 
des pueden ser cuatro: Periodista, 
chico, ???? 

Según nuestra personalidad nos contes- 
tarán diferentes cosas. El de la derecha, 
representa la maleta de viaje. En ella po- 
dremos guardar cualquier objeto que en- 
contremos, de la misma manera que lo 
podremos dejar o utilizar. 

5. En la parte inferior izquierda apare- 
cen unas ventanas con distintas imágenes, 
según donde nos encontremos en esos mo- 
mentos. Se trata de unos submenús que 
nos llevarán a otros lugares diferentes. Esta 
clase de "lugares son muy importantes, ya 
que en ellos encontraremos la mayoría de 
los objetos del juego. 

Hay que decir que en la parte inferior 
derecha se nos mostrará el objeto que 
estemos utilizando. El juego tiene dos op- 
ciones: GRABAR Y CARGAR. 

GRABAR: Nos permitirá grabar en un 
disco virgen la escena donde nos encontre- 
mos para seguir más adelante en este pun- 
to. Para ello sólo hace falta pulsar la teda 
de función F-6, a continuación escribir el 
nombre que se le quiera dar a la parte 
almacenada y después pulsar enter. 

CARGAR: Para ello sólo hace falta pul- 
sar la tecla de función F-7. Cuando aparez- 
ca un signo de interrogación, introducid el 
nombre de la parte almacenada anterior- 
mene. Inmediatamente.se cargará la escena 
donde te hubieras quedado. Procura no 
olvidarte de colocar luego el disco del 
juego. 



CALIFICACION 
GLOBAL 



Podemos decir que nos encontramos 
ante una obra de arte de la prestigiosa casa 
de software INFORGRAMES. Este juego 
posee unos magníficos gráficos, unas imá- 
genes digitalizadas de gran realismo y una 
música que se oye en pocos juegos. Bien, 
ya sólo os queda cargar el juego y encontrar 
a los tres traidores. 

¡BUENA SUERTE, MUCHACHO. ..! 




YA ESTA A LA 
VENTA EL ÜT. 
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Video-Pokes 



por Miguel Angel Vila 



PROFANATION 



Alo largo de 3. 000 años los mejores 
exploradores del mundo han in- 
tentado profanar el templo de 
ABU-SIMBEL. Entraban, pero nunca sa- 
lían para contarlo. 

Nuestro personaje, Johnny Jones, se 
adentró en el templo. Nada más entrar se 
encontró con el malvado espíritu de Ram- 
ses II, que le echó una maldición, le dejó 
como un bicho raro, y ahora la única ma- 
nera de recuperar su figura humana es 
llegar a la cámara mortuoria. 

El juego se compone de 45 pantallas 
distintas, distrjbuidas en nueve pisos con 
cinco pantallas por piso. Para poder reali- 
zar el juego es necesario recorrer el templo 
en su totaíidad hasta llegar a la última 
pantalla, que corresponde a la cámara mor- 
tuoria del faraón, en la que Johnny reco- 
brará su apariencia humana. 

Ten mucho cuidado con las pantallas, ya 
que para pasar a algunas necesitas la co- 
rrespondiente llave. Hay otras que están 
hechas para una vez dentro, no volver a 
salir (si no es muerto). 

Para completar este juego tenemos un 
número limitado de vidas, que irá descen- 
diendo según choquemos con algún obstá- 
culo o caigamos en una trampa. 

Como creemos que este juego te va a ser 
imposible de completar, te hemos hecho el 
siguiente cargador, con él conseguirás 255 
vidas y podrás comenzar el juego en la 
pantalla que tú desees. 

II 'CARGADOR - PROFANATION 
21 'POR MIGUEL A. VILA LUSO 
3§ 'PARA MSX-CLUB 
4f 

51 COLOR 15, 1, l-.SCREEN P:KEY OFF 

60 FORI=I<HA040 TO ÍHA04F 

7» READ A$:A=VAL("&h"+A$):J=J+A 

80 POKE I,A 

90 NEXT I 

100 IF J02162 THEN BEEP:PRINT'Error e 
n Datos" : END 

110 LOCATE 5,10:INPUT"CUANTAS VIDAS (1 
-255)"jV 

120 IF m OR V)255THEN 60T0 110 
130 POKE fcHA094,V 

140 LOCATE 5,13:INPUT"PANTALLA INICIAL 
U-45)';P 

150 IF P<1 OR P>45THEN GOTO 140 
160 POKE &HA092,P 
170 CLS 

180 L0CATE3, 10: PRINT M CARGANDO ... PROF 

ANATION" 

190 BLOAD'cas:" 



200 POKE ItHF A88 , ScH40 : PGKE&HF AB9 , &HA0 

210 DEFUSR=iHFA40:A=USR(0) 

220 DATA 3A,92,a0,32,A8,C0,3A,94,a0,32 

,B4,C0,CD,02,C0,C9 



CAMELOT 
WARRIORS 

En el número de noviembre de nues- 
tra revista incluíamos el mapa de 
este fascinante juego. Ya en esas 
páginas, os avisábamos de la pronta apa- 
rición del cargador de CAMELOT WAR- 
RIORS. ¡Bien!, aquí está. Es mejor tarde 
que nunca, así que a continuación os en- 
tregamos el cargador de vidas infinitas de 
este divertido juego de DINAMIC en el 
que, como recordaréis, hemos de recoger 
cuatro objetos del siglo XX que se han 
perdido en un mágico mundo medieval. 
Sólo con un gran dominio de joystick (o 
con este cargador de vidas infinitas) con- 
seguiréis terminar esta fantástica aven- 
tura. 




10 'CARGADOR - CAHELOT WARRIORS 
20 'PARA PARA VIDAS INFINITAS 
30 'POR MIGUEL A. VILA LUGO 
40 'PARA MSX-CLUB 
50 BLOAD'CAS:" 

60 POKE MCA67,fcHC3:POKEiHCA68,0:POKE& 
HCA69,fcH9F 

70 FOR I=fcH9F00 TO &H9F0C 

80 READ A$:C=VAL( , iH"+A$):POKE I,C:K=K 

♦CsNEXT 

90 IF KO201B THEN CLS:BEEP:PRINT"ERRO 

R EN DATAS": END 

100 DEFUSR=iHC9DA:A=USR(0) 

110 'DATA F5,3E,FF,32,5C,B5,F1,CD,0E,AA 

,C3,6A,CA,00,00 



AUF WIEDERSEHEN, 
MONTY 



E 



ste juego se desarrolla en Europa. 
Monty quiere comprar una isla pero 
no tiene suficiente dinero para ello. 



Tienes que ayudarle a recoger todos los 
vales de dinero que haya en los diferentes 
países de Europa. 

También hay objetos que si cogemos, 
luego podremos vender y otros que nos 
ayudaran a hacer trabajitos para cobrar las 
propias. 

Para viajar a distintos países de Europa 
podremos ir a lós transportadores, cada 
uno de ellos tiene un destino diferente. 

Para completar este juego dispones de 
un número limitado de vidas que (como 
siempre) irá descendiendo. Para que no te 
ocurra eso, teclea el siguiente cargador. 
Tendrás vidas infinitas y te será muy útil 
para completar el juego; pero aun con esto 
tendrás que estar horas delante de tu te- 
levisor si quieres ver el final de este 
juego. 

10 'CARGADOR , VIDAS INF. 

20 'POR MIGUEL A. VILA 

30 'PARA MSX-CLUB 

40 i , 

50 COLOR 1 1 , 1', 1 : SCREEN S:KEY OFF 

60 LOCATE 6,13:PRINT" Por MIGUEL A. V 

ILA" 

70 LOCATE 3.10-.PRINT' CARGADOR - AUF N 
IEDERSEHEN, MONTY" 

80 LOCATE 12,17:PRINT"CARGANDÜ ..." 
90 BLOAD'cas:" 

100 POKE &HDB29,0:POKE*HDB2A,&HD9:POKE 
MD931,0 

110 FOR I=*HD900 TO &HD90A 
120 READ A$ 

130 DATA E5,21,0,0.22,7B,A9 f El,E9,C9,0 


140 NEXT I 

150 IF N01247 THEN CLS:BEEP: PPINT'ERR 

OF: EN DATASE END 

160 DEFUSR=fcHD800:A=USR(0) 

170 DATA E5,21,0,0,22,7B,A9,E1,E9,C9,0 






¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 




N.° 33 - 275 PTAS. N.° 34 - 275 PTAS. N.° 35 - 275 PTAS. N.° 36 ■ 275 PTAS. N." 37 -275 PTAS. N .« 38 - 275 PTAS. 



;SI TE HACE FALTA ALGUN NUMERO DE E23 PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pón y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO , 

Si, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 1 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja I 

¡gá^ázm^——"-— ***i-¿** ymSL ¡ 

CALLE N° CIUDAD 

DP ^ PROVINCIA TEL ...~.JJZZZZ'.ZZZZZ.'. !j 
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SONY TIENE CANTIDAD DE PROGRAMAS 

Increíbles juegos de acción, destreza, inteligencia. 
Divertidos programas de dibujo y diseño. 
SONY lo tiene todo para que demuestres tus habilidades de 
campeón con el MSX. 

¿POR CUAL QUIERES EMPEZAR? 

Consigue más información y 
aprovéchate de las ofertas y 
regalos del Club SONY MSX 
enviándonos tu nombre, 
dirección y ocupación, junto 
i a una fotocopia de la ga- 
Irantía de tu ordenador MSX a: 



Club SONY MSX Apartado de Correos 61.278 28080 MADRID 




HOMICIDIO EN EL 
ATLANTICO 
Cassette MSX1/2 



N 



LOS PASAJEROS 
DEL VIENTO 
Diskette MSX2 




Diskette MSX2 
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FISICA • Movimientos 
Cassette MSX1/2 



SONY 



